iM U U U II U U U II 



■ E^HII 111 

j Uj LU Uli 



=» ■=> srs ■»., -*» 5"= «„ *- <«-r *S-«* 'IK 



MICRO-ORDINATEUR 

ITT 2020 



MANUEL DUTILISATION 



* Apple System 




W li! JO AJ JU ill UJ OJ 4J U XI JJ JU U Jj IU Ml 11 Xi iKi Xi llU Xl to 




5 



/f 




^ 



O Afin de faciliter la comprehension de ce manuel, les textes ont ete 
composes dans deux caracteres differents: 

l'un pour les textes generaux, 1 ' autre pour faire ressortir les textes 
qui doivent apparaitre sur l'ecran. 

Exemple : 

714 YSPEED = -1 * YSPEED 

719 GOTO 706 

qui apparaitra sur l'ecran de la fagon suivante: 



I _= I 5_ i_ i.-- 
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Notez bien la fagon de differencier la l ettre du chiffre 0. 
O Tout au long de ce manuel, vous verrez des indications de ce genre: 



RETURN 



n) ou REPT J ou encore "tapez 130 puis | RETURN 



Cela signifie que vous devez appuyer sur la ou les touches dont les 

noms sont indiq ues da ns le ou les cartouches. 

Dans 1' exemple I REPT | il faut appuyer sur les deux touches simulta- 
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Felicitations ! 



Vous etes maintenant 1 ' heureux possesseur d'un "MICRO ORDINATEUR 
ITT 2020" . 

Ce manuel a ete congu de la maniere la plus simple possible et suivant 
un ordre logigue afin que vous decouvriez progressivement les possibili- 
tes nombreuses de votre ordinateur personnel, et la maniere de vous en 
servir le mieux possible. 

Naturellement, si vous etes deja un "initie" en informatique, le contenu 
de ce manuel vous paraitra extremement simple, mais il vous faudra 
decouvrir de nouvelles manieres moins "formelles" d'utiliser la program- 
mation a titre personnel. Si par contre vous n'etes pas un specialiste, 
ce manuel a justement ete congu pour qu'en peu de temps vous deveniez, 
vous aussi, un "programmeur" confirme, vous donnant acces au domaine 
extraordinaire de 1 ' informatique "personnelle" . 

N'ayez aucune crainte, la comprehension et le maniement sont aises sous 
la conditio n expresse que vous appreniez en utilisant simul tanement 
l'appareil et le manuel. " 

En effet, si vous ne faites que parcourir ce manuel, sans essayer imme- 
diatement chaque instruction sur votre ordinateur, le resultat sera 
decevant . 
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CHAPITRE 1 

BRANCHEMENTS -MISE EN ROUTE 

Toutes les connexions etant etablies, il vous faut effectuer ces ope- 
rations: 



1° - 



2° - 



3° - 



mise en marche de votre TV, en ay ant soin de reduire au minimum son 
volume sonore (en effet, le son ne vous servira pas) ; 

mise en marche du micro-ordinateur ITT (par 1 ' interrupteur visible 
sur le schema); vous verrez s'allumer, en bas du clavier, le temoin 
lumineux de mise sous tension (attention ce temoin n'est pas une 
touche et ne peut etre enfonce) ; 

selectionner un canal UHF (vous referer a la notice de votre 
recepteur TV, ou demander a votre revendeur TV de vous indiquer le 
processus, en principe chaine 2 canal 36). 



Notes 



CHAPITRE 2 

LE CLAVIER.TOUCHES SPECIALES, UTILISATION 

Vous §tes maintenant pret a utiliser votre ordinateur. 

EXAMINONS CE QUI SE TROUVE SUR LE CLAVIER : 

Tout d'abord, ne tenez pas compte de ce qui a pu apparaltre sur votre 
ecran TV! 



Isituee dans le coin 



En premier lieu, appuyez sur la touche 1RESETI 
superieur droit du clavier) . 

Essayez. 

Si toutes les operations precedentes ont ete effectuees correctement 
(voir chapitre 1) , votre ordinateur va emettre un son bref (BIP) quand 
vous relacherez la touche IRESET1 , et 1' ecran devra presenter un 
asterisque # dans le coin inferieur a gauche, suivi d ' un carre cligno- 
tant (que nous appelerons dorenavant CURSEUR) . Pour le moment, ne vous 
occupez pas des signes ou caracteres qui emplissent 1' ecran. 



Revenons a notre clavier. Vous y trouverez 2 touches marquees |SHIFT| . 
Ces touches remplissent la meme fonction que les touches MAJUSCULES sur 
une machine a ecrire classique, c'est-a-dire qu'elles permettent 1' uti- 
lisation d'une seule touche pour 2 caracteres. Par exemple, si vous 
appuyez seulement la touche EI , vous ob tiendrez sur 1 ' ecran la lettre N; 
si vous tenez enfoncee la touche ISHIFT1 et appuyez sur la touche [n] , 
vous obtiendrez le symbole superieur, soit A . 

Familiarisez-vous avec cette touche en l'utilisant. 

II y a seulement deux exceptions a la regie ci-dessus. Elles concernent 
les touches [MJ et [G] . En effet, appuyez sur ISHIFTl et \m\ : le sym- 
bole qui apparait (non repr esent s sur la touche) est une sorte de 
crochet ( ] ) . Appuyez sur ISHIFTl et |G] : vous verrez apparaitre non pas 
le mot BELL mais un simple G. Vous trouverez plus loin 1 ' explication du 
mot BELL. 

O Une autre remarque importante concerne le zero et la lettre 0. Par 
convention, et pour eviter toute erreur de programmation , le chiffre 
zero sera represents sous le symbole au lieu de 0. D'ailleurs, 
regardez votre clavier: il s'agit bien de deux touches distinctes. 

A propos, que s'est-il passe sur 1' ecran, pendant que vous vous exerciez 
a taper des lettres ou des chiffres? 

II s'est rempli de signes ou de symboles de toutes sortes; ce sont ceux 
que vous avez vus au debut de ce chapitre. Puis tout ce que vous avez 
tape s'est inscrit dans le bas de 1' ecran. Si maintenant vous desirez 
obtenir un ecran vierge, procedez de la maniere suivante: 



1° - appuyez sur la touche lESCl (lire de la 2eme rangee en partant du 
haut) ; 

2° - appuyez et tenez enfoncee la touche ISHIFTl ; 



Notes 
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3° - appuyez sur la touche ; 



4° - reiachez les touches (SHIFT I et \¥\ : tout l'ecran devient vierge 
d' inscription, sauf le curseur en haut a gauche; 

5° - appuyez sur I1RETURNI et l'asterisque reapparait. 

N.B.: tant que le contraire n'est pas specif ie dans le manuel, on doit 
toujours relacher la derniere touche tapee avant de frapper la 

suivante . 

O Pour une bonne comprehension des explications de ce manuel relatives a 
1' utilisation du clavier, vous devez lire attentivement ce qui suit. 

Dans les exemples qui suivront, nous visualiserons les mots ou phrases 
dans leur ordre sequentiel (c ' est-a-dire dans l'ordre respectant celui 
des mots et phrases que vous allez introduire) . 

UTILISATION SIMULTANEE DE DEUX TOUCHES : 

Prenons un exemple: pour obt enir le signe $, vous devez d'abord presser 
et tenir enfoncee la touche ISHIFTI , et simultanement appuyer sur 

la touche $ 

Chaque fois qu'une action simultanee sera necessaire, nous indiquerons 
les symboles l'un au dessus de 1' autre, comme ceci: 



SHIFT 







Autre exemple (pour rendre l'ecran vierge): 



| SHIFt) 



[esc ) I p) (return ) 

TOUCHES A FONCTIONS PARTICUUERES A VOTRE ORDINATEUR 



La touche CTRLI accom plit de s fonctions speciales, un peu de la meme 
maniere que la touche ISHIFTI , mais av ec la difference essentielle que 
les touches tapees simultanement avec ICTRL I ne sont jamais affichees 
sur l'ecran.. 
Par exemple: appuyez, tenez enfonce ICTRLI et appuyez sur la 



touche 



BELL 
G 



Quand vous appuierez sur les deux touches, votre ordinateur repondra par 
un son bref (BIP) . 

Cela signifie, en cours d' utilisation, qu'il desire attirer votre atten- 
tion sur certaines choses (nous verrons plus loin lesquelles) . 



Maintenant tapez: 



CTRL 



) 



RESET 



) E> 



RETURN 



J) 



O Vous vous rappele z nos conventions? Cela signifie ; appu yez et relachez 
la touche | RESET [ , puis a ppuyez e t tenez enfonce |CTRL j et [¥] , relachez, 
puis appuyez et relachez | RETURN | . 

Le resultat de cette operation fait apparaitre sur l'ecran (en bas a 
gauche) le curseur clignotant precede d'une "pointe de fleche". 

(N.B.: si la premiere fois vous n'obtenez pas ce resultat, recommencez ! ) 
Nous vous dirons plus loin la signification de ceci (voir glossaire 
page 139 ) . 



La touche REPTJ 

Comme vous l'avez deja devine , cette touche est 1 ' abreviation de 
repetition. Le fait de la tenir enfoncee simultanement avec n'importe 
quel caractere du clavier permet d'obtenir la repetition de ce dernier 
autant de fois que vous le desirez, aussi longtemps que vous tiendrez 
les deux touches enfoncees. 

UNE REMARQUE EN PASSANT : 



Si^vous avez appuye sur la touche | RETURN I au cours des manipulations 
precedentes, 1 ' ordinateur emettra un son bref (BIP) , et inscrira sur 
l'ecran le message suivant: "♦♦♦SYNTAX ERR". 

A ce stade de votre initiation, ne vous en preoccupez pas. L' explication 
viendra plus loin. 

Enfin les dernieres tou ches speciales sont celles qui deplacent le 
curseur vers la droite F=^| ou vers la gauche P^l (voir page 12 ) . 

Maintenant, avant de continuer, faites des essais, encore des essais, 
tou jours des essais, et tranquilisez vous: rien de ce que vous pourrez 
taper sur votre clavier n'est susceptible d'endommager l'appareil! 



Notes 
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Vous devez avoir maintenant sur l'ecran une "pointe de fleche" avec le 
curseur clignotant a sa droite, et rien d' autre ensuite. (Au c as ou vo us 
auriez tape quelgue chose d' indetermine appuyez sur la touche |RETURN| ). 

Vous etes done dans les conditions requises pour que votre ordinateur 
execute vos ordres. Nous vous donnerons au prochain chapitre des details 
sur le langage que comprend l'ordinateur (appele: le BASIC), mais pour 
le moment faisons quelques essais de commandes simples, executees en mode 
d'affichage immediat. 

Vous allez taper les mots ci-dessous, exa ctement comme ils sont ecrits : 

[SHIFT! jSHIFTl 

PRINT "BONJOUR" (c ' est-a-dire PRINT IT] BONJOUR m ) 



m 



m 



Appuyez sur | RETURN] . Que se passe-t-il? 

BONJOUR est affiche sur l'ecran et si jamais vous avez commis une erreur 
quelconque (par exemple tape PRINTE ou omis un ") l'ecran affichera 
M ###SYNTAX ERR"i Si tel est le cas, recommencez en faisant plus atten- 
tion! 

Vous pouvez essayer d'inscrire un ou plusieurs mots ou bien une phrase de 
votre cru! 

Attention, tapez PRINT puis placez toujou rs ce qu e vous voulez afficher 
entre guillemets If..." ; et n'oubliez pas | RETURN | pour voir votre texte 
s'inscrire sur l'ecran. La derniere condition a respecter est de ne pas 
inclure entre les guillemets plus de 122 caracteres ou espaces, sinon 
l'ecran affichera: 

##*T00 LONG ERR 

Vous pouvez aussi, emporte par votre enthousiasme, essayer d'entrer en 

une seule fois un chaDitre entier de M. Paul CLAUDEL. Dans une certaine 
une seule fois un chapitre entier de M. Paul CLAUDEL. Dans une certaine 

mesure votre ordinateur aura pitie de vous: c' est-a-dire qu'a partir de 
240 caracteres, done avant que vous ayez place le 2eme guillemet, il 
emettra un BIP et passera a la ligne en affichant de nouveau le ^>D. 
Vous n'aurez plus alors qu'a recommencer en tenant compte des instruc- 
tions indiquees plus haut. 

Essayez . . . 

Bien sur, vous avez parfaitement reussi la premiere fois, mais nous 
devons vous indiquer une autre source d' erreur possible: si vous oubliez 
les 2 guillemets, l'ordinateur ne prendra pas en compte ce que vous avez 
Scrit apres PRINT et repondra par 0. 

APRES LES LETTRES... LES CHIFFRES : 



Essayez ceci: 



PRINT "150" I RETURNl , et sur l'ecran vous lirez, 



■ 150 



Vous avez deja compris que toute inscription, quelle qu'elle soit, 
precedee de la commande PRINT et comprise entre les guillemets, sera 
affichee sur l'ecran. 



„V, -i f=f-*-^r~ 



Tapez: PRINT 150 

Bien que le chiffre ne soit pas entre guillemets, l'ecran affichera 150' 
En fait, tout nombre compris entre les valeurs maximales autorisees par 
votre ordinateur (-32767 a +32767) peut etre affiche sans probleme et 
sans guillemets. A ce sujet, votre ordinateur peut evidemment vous 
servir de calculatrice. Nous verrons au chapitre suivant comment tirer 
le maximum des possibilites "calculatrice" de votre ordinateur. 



Exemple: PRINT 15283 + 7675 I RETURN | 
vous lisez la reponse: 22958 

Nous pensons que maintenant il serait temps de vous initier au langage 
(BASIC) qui vous permettra d'interroger 1 'ordinateur . Progressivement, 
par des exemples choisis, nous vous apprendrons a faire executer par la 
machine des programmes de plus en plus sophistiques . 

©Remarque: n'ecrivez jamais du texte comme ceci: 

PRINT "LE LIEU-DIT DE "BASTIDE BLANCHE" A DISPARU" 

En effet, 1 ' ordinateur reconnaissant quatre guillemets (c ' est-a-dire 
deux de trop) vous indiquera: 

#**SYNTAX ERR 
Dans les exemples precedents, vous avez vu que votre ordinateur ITT fait 
la difference entre le texte (par exemple PRINT "BONJOUR/ ME VOILA") 
et le numerique (par exemple PRINT 123 + 154) • il se contente en effet 
d'afficher le premier alors qu'il calcule le second. 

©La definition suivante est valable pour tous les autres chapitres: 

Aucun calcul numerique ne peut se faire pour une expression entre guil- 
lemets, car 1" ordinateur la considererait alors uniquement comme du texte, 
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CHAPITRE 3 

INTRODUCTION AU BASIC 

SIGNIFICATION DE LA TOUCNE "RETURN 1 : 



A partir de maintenant, nous ne vous indiquerons plus quand il faut taper 
I RETURN - ] • Souvenez-vous 'simplement de sa signification: 



Ola touche 1 RETURN - ] sert a introduire dans la memoire de l'ordinateur ce 
que vous avez i nscrit s ur l'ecran (done a prendre en compte le texte 
ecrit entre le | RETURN] precedent et celui que vous allez frapper) . 

DESCRIPTION 

II existe en informatique des langages conventionnels dont un des plus 

simples est le "BASIC". 

Celui-ci est compose d'un certain nombre de mots et de caracteres acceptes 

par la machine, sous condition que leur orthographe et ponctuation soient 

respectees . 

Vous trouverez, en fin de manuel, un glossaire exhaustif de ce langage. 

En fait, vous avez deja utilise, au chapitre precedent, une commande 
BASIC! Eh oui. . . PRINT en est une, ainsi que... les guillemets. 

Nous allons maintenant examiner plus avant les differentes possibilites 
de la commande PRINT/ utilisee avec des ponctuations diverses. 

ADDITION: 

Comme nous l'avons deja vu,pRiNT 3 + 4 vous affichera 7- Mais vous pouvez 
avoir besoin d'afficher les operateurs de cette addition devant le 
resultat. Dans ce cas vous procederez ainsi: 



PRINT "3 + 4 



_ ii 



3 + 4 



Si nous decomposons , nous constatons que la partie entre guillemets (vous 
vous rappelez?) affichera a la ligne suivante: 3 + 4 = 

Nous trouvons ensuite le point-virgule . Cette ponctuation a une signi- 
fication extremement precise qui indique : 

1° - a la machine qu'il y a une instruction subdivisee en deux 
(cf. l'exemple ci-dessus) sur la meme ligne 

2° - indique que le resultat de la 2eme instruction (3+4 soit J) devra 
etre affiche immediatement a la suite de la lere. 
Vous verrez done affiche: 

3 + 4 = 7 

Pour plus de comprehension, essayez ceci: 



PRINT "3 + 4 = " 


(puis) 
(puis) 


RETURN | 


PRINT 3+4 


RETURN | 


Vous obtiendrez: 

3 + 4 = 
7 





O Avant d'etudier les autres modes de calcul, revenons sur le seul signe 
dont nous ne vous avons pas donne d' explication dans l'exemple ci-dessus: 
le signe [+] 

Nous voulons signifier que ce signe est compris par la machine comme un 

"Operateur", c'est-a-dire qu'il s'agit la aussi d'une commande BASIC, 

au mime titre que les signes utilises pour multiplier, diviser ou 

IRttltSifSi- 18i bfHili 2 K a § l es epaules, car cela n!est Das aussi evident! 
souscraire. we naussez pas les epaules, car cela n'est pas aussi evident! 

En effet, en arithmetique scolaire, la multiplication est symbolisee 
par "X" et la division par ":". En BASIC, 1' operateur utilise pour la 
multiplication est un asterisque [*] , et pour la division c'est une 
barre oblique [/J . 

UNE REMARQUE POUR VOUS FACILITER L'ECRITURE : 

II arrive bien souyent, et surtQUt p9Uf 1§§ gr8gf§mm§Ur§ 11811 f§fflili§r±§|§ 
avec une machine a ecrire, de commettre des fautes de frappe. Que peut 
on faire pour y remedier, surtout quand on s ' en apergoit a la fin de la 
phrase? 

Par exemple, tapez: PRINT "MICRO ORDINATEUR ITT (sans frapper le second 
guillemet) et, comme d' habitude, appuyez sur RETURN . 

L'ecran affichera **#SYNTAX ERR, car nous avons oublie le 2eme guillemet. 
Si 1' inscription avait ete correcte (c'est-a-dire si vous aviez mis le 
second guillemet a droite) , la reponse aurait ete MICRO ORDINATEUR ITT • 

Maintenant tapez 1 ' instruction suivante ou le texte entre guillemets 
contient une faute d' orthographe: 

PRINT "MICRO ORDINATEURE ITT 11 (non, n'appuyez pas sur | RETURN I !) 
Vous remarquerez que le curseur clignotant se trouve immediatement a la . 
droite du dernier guillemet. 
Q Pour modifier ORDINATEURE en ORDINATEUR, vous allez utiliser la touche 
I — - I , qui a pour effet, a chaque fois qu'elle est enfoncee, de faire 
revenir d'une place en arriere le curseur. Appuyez sur cette touche 
(dans l'exemple: 6 foi s) de ma niere a ce que le curseur clignotant soit 
sur la lettre E, puis | RETURN | . 

Eh oui! encore un###SYNTAX ERR • La raison est simple. 

En effet, quand le curseur revient en arriere, il "efface" les caracteres 
sur lesquels il est passe (dans le cas present, nous vous avons ramene 
au ler exemple de ce chapitre) et ce, non pas de l'ecran, mais de la 
memoire ordinateur. Afin d'eviter cela, il y a deux solutions: 

1° - apres avoir effectue votre rectification, appuyez sur la touche | —> | 
jusqu' a ce que le curseur depasse le dernier guillemet 
(puis | RETURN| ) ; 



Notes 



2 - retapez i jj et le guillemet sur le clavier puis RETURN 



Essayez tout cela plusieurs fois! (Remarque: en regie generale, pour 
modifier un caractere il suffit de placer le curseur sur le caractere 
et de taper la nouvelle lettre) . 

N.B.: si la phrase inscrite est lon gue , il est interessant de con juguer 
l'emploi simultane des touches [ — | et |^— | avec la touche |REPT | . 
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C'est-a-dire: appuyez une fois sur 1 — I , puis appuyez sur I REPT | 
jusqu'a ce que le curseur soit la ou vous voulez. 

Essayez... rapide n'est-ce pas? 

O Vous devez egalement savoir que dans ce langage BASIC, votre ordinateur 
n'accepte que des nombres entiers (-27 ou 145) • H refuse les dScimales 
(3,14 ou 18,4). 

II existe, bien sur, un langage plus evolue qui vous permettra de traiter 
les nombres decimaux (avec la virgule flottante) et bien d'autres 
choses!... II est enregistre separement sur cassette speciale et fera 
l'objet d'un second manuel. 

De ce fait, si vous tentez de diviser 27 par L\ , l'ecran affichera 6 et 
non pas 6,75» c'est-a-dire le nombre de fois que le diviseur est contenu 
dans le dividende. 
Pour obtenir le reste, il faut se servir de la commande suivante: 

MOD (abreviation du terme mathematique "Modulo") et agir de la maniere 
suivante: 

PRINT 27 MOD 4. Le resultat affiche sera J,, soit le reste. (Attention: 
n'utilisez pas MOD sans diviseur ni dividende, 1' ordinateur indiquerait 
une erreur) . 

Bien entendu, vous pouvez entrer plusieurs operations sur une meme ligne. 
Par exemple: 

print 6 + 4/5-1*2 

Nous verrons, avant la fin de ce chapitre, les regies precises qui gou- 
vernent ces operations multiples . 

ELEVATION A UNE PUISSANCE : 

Si on desire multiplier un chiffre par lui-meme un certain nombre de fois, 
on peut taper evidemment: 

print 2*2*2*2*2 

Mais il est infiniment plus -simple d'agir comme en mathematiques et 
utiliser la forme suivante: 

PRINT 2 A 5 

Le symbole A est celui de 1' elevation S la puissance. 

Ce symbole est obtenu en tapant | SHIFT ] 

Enfin, nous vous rappelons que les nombres autorises sont ceux compris 
entre (-) 32767 et (+) 32767. 

Depasser ces limites causera l'affichage du message: ***]>32767 ERR 

Exemples: PRINT It A 10 (impossible, le resultat etant superieur a 32767) 
PRINT 84272 (egalement superieur a 32767, done faux) 






PRIORITE DES OPERATEURS ARITHMETIQUES : 

Dans^le cas d' operations simples sur la meme ligne, on ne peut prejuger 
du resultat si 1 ' on n'a pas etabli au prealable une regie des operations. 
Par exemple: 

20 + 12/4 pourrait aussi bien s'exprimer par: (20 + 12)/4 = 32 

que par: 20 + (12/4) = 23 
(dans 1' exemple ci-dessus, le resultat pour l'ordinateur sera 23). 

II y a done certaines regies que nous allons vous exposer et auxquelles 

obeit votre ordinateur. 

Lorsque vous posez une operation (comme dans 1' exemple ci-dessus) sur une 

feuille de papier, vous obeissez a des regies bien precises pour eviter 

toute confusion. C'est-a-dire que vous avez la notion de priorite des 

operations. Votre ordinateur possede lui aussi cette notion de priorite 

des operations. II obeit aux regies 1°, 2°, 3° et 4° qui suivent. 

Ces regies sont donnees dans 1 ' ordre de priorite decroissante (e'est-a- 

dire que 1° est prioritaire sur 2°, 2° sur 3°, etc.). 

1° - quand le signe - sert a indiquer un nombre negatif et qu'il est de 
ce fait place a sa gauche (ex: -3+2), l'ordinateur appliquera 
d'abord le signe (-) , ainsi le resultat donnera -1, 

Autre exemple: A = 6 



A + 18 



k) 



2° - 



PRINT - A + 10 (reponse 

apres le changement de signe, intervient l'operateur d' elevation a 
une puissance. Les operations se font toujours de gauche a droite 
ainsi: 



3° - 



4 A 2 A 3 = 4096 

ensuite, viennent les operateurs de multiplication, division et 
modulo qui ont tous trois une priorite egale mais toujours en 
operant de la gauche vers la droite. 

4° - enfin seront prises en compte les additions et les soustractions 
(meme valeur) et toujours de gauche a droite 

Nous pouvons nous resumer ainsi: 



1° 
2° 
3° 
4° 



(les signes "moins" affectant une valeur negative aux chiffres) 
/x > (puissance, de gauche a droite) 

MOD,*, /, (modulo, multiplication, division, de gauche a droite) 
+, -, (addition, soustraction, de gauche a droite). 



Nous vous recommandons d'effectuer les operations suivantes, sans vous 
servir de l'ordinateur et de comparer ensuite vos resultats avec celui- 
ci, en recherchant bien entendu pourquoi vous avez obtenu d ' eventuelles 
differences '(lorsque vous calculerez les exemples avec votre ordinateur 
n oubliez pas 1 ' ordre PRINT avant les valeurs a calculer) . 

5 + 7-2 + 4 
7A5 



Notes 
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5A3 + 2 

3 - 2/2 

10/2 - 1 

9 * - 2 + 4/2 + 6 

4 + - 2 
3A3A3 + 1 
3*3*3 + 2 
4*2 + 3*2 

6/3/3/1 

6*2/2 + 4*2-3*2 

40/4 * 6 

OH serait, neanmoins, assez fastidieux d'etre toujours contraint a une 
attention soutenue pour eviter des erreurs dans les resultats des opera- 
tions multiples. Nous avons done utilise des "parentheses" pour annuler 
la priorite definie ci-dessus. 

Supposons que vous vouliez diviser 24 P ar 6+2- Vous savez que le fait 
d'ecrire 24/6 + 2 vous donnera come resultat 6- Aussi, pour modifier la 
sequence prioritaire des operateurs, vous devez ecrire 24/ (6 + 2) ou les 
parentheses etablissent une nouvelle priorite, car ce qui est entre paren - 
theses est traite en premier"! 

Dans le cas de parentheses entre parentheses, les parentheses internes 
sont traitees d'abord. 

sera traite comme suit: 
"calcul de la parenthese la plus interne 



Exemple: 24/ (4 + (1 + 3) A 2) 

1 < 

24/ (4 + (4) A 2) 



24/ (4 + 16) 

< 



calcul de la parenthese la moins interne 
.en commencant par 1' operateur a plus 
forte priorite (operateur A ) . 



calcul de la parentk!§§ la ffl8iR§ lRt§fR§ 
.(operateur -I- de priorite moins forte que 

A). 



24/20 
1 



.calcul du rapport 



Dans un cas comme (3 + 3) * (5 * 2) . ou il y a deux groupes de parentheses 
mais ou aucune n'est incluse dans 1 ' autre , on procede tout simplement de 
gauche a droite. 
Cette expression devient done: 6 * 10 — 60 



Essayez, come indique plus haut, les quelques exercices suivants: 
10 MOD (4 + 1) 

24/ (2 + 2) 
((24/2) + 2) 
3 + (- 2 * 2) 
((3 + - 2)* 2) 
50/100/(1 * (8 - 4)) 

(Rien ne vous empeche d ' en ecrire d'autres!!) 



Notes 
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EXERCICE HI/1 

Donnez un exemple pour: 

1 - Imprimer le resultat d'une operation arithmetique 

2 - Imprimer une operation arithmetique sans calculer le resultat 

3 - Imprimer une operation arithmetique et imprimer le resultat a la suite 

1 - PRINT 3+4 

2 - PRINT "3 + 4" 

3 - print "3 + 4 =" ; 3 + 4 

EXERCICE 111/2 

Ecrivez en BASIC les expressions suivantes: 

1 - nx + m 

ax = b 



2 - 



Ox _+ y ) + _ 

5 + z 

(2x 2 - y) 

3 D 



1 - (N * X + M) / (A * X + B) 

2- ((3*xA2 + y) /6 + z) / ((2*xA2 



y) / 3 + 5) 



Remarque: un bon moyen pour savoir si une expression contient autant de 
parentheses ouvrantes "(" que de parentheses fermantes ")" est d ' en faire 
la somme a partir de la gauche en donnant la valeur +\ a "(" et -1 a ")". 
A la fin de 1' expression le total doit faire 0. 



EXERCICE III/ 3 



Donnez le resultat de cette expression en BASIC: 

(7 * a* b * c) / ((4 * a) * ((dA2) - aD) 

avec: A = 10 

B = 2 

c = 20 

D = 10 

Al = 30 



RESULTAT 



1 



OUELOUES FONCTIONS 



VALEUR ABSOLUE : 

La qualite principale d'un ordinateur est son extraordinaire rapidite de 
recherche et de comparaison des donnees qu'il a en memoire. II est done 
extremement interessant de lui faire rechercher des valeurs aleatoires. 
II existe pour cela la fonction RND- 



RETURN 



9 



Essayez par exemple: PRINT RND (9) et. . . 

et recommencez plusieurs fois, en notant les chiffres qui apparaissent 
sur l'ecran. 

Vous constaterez qu'apres chaque execution 1' ordinateur affiche sur 
l'ecran un chiffre imprevisible, situe dans une gamme de a 8- 

En effet, le chiffre entre parentheses est la limite que vous fixez a 
1 'ordinateur; il n'en tiendra pas compte pour sa recherche. Si vous 
vouliez que 9 figure parmi les nombres recherches, il faudrait ecrire 
RND (10) (chiffres de a 9) ou RND (9) + 1 (chiffres de 1 a 9) . 

L' operation est identique si vous cherchez des valeurs aleatoires nega- 
tives . 

Ex: RND ( - 9) recherchera les valeurs comprises entre et -8 



Les applications de cette fonction sont innombrables . 
au chapitre N° V, l'exercice V/4) . 

VALEURS ALEATOIRES : 



(par exemple voyez 



II est aussi tres interessant de posseder une fonction qui donne la 

valiur afesolug 3'un nomkrg ou d'une expression mathimatiqug: 

(x) = X si X^/0, (x) = -X si X^/0. 

Votre ordinateur possede cette fonction. C'est la fonction ABS* 

- Essayez par exemple :_ 
PRINT ABS (-3) et. . . 
Le resultat est 3- 

- Maintenant essayez 



RETURN) 



PRINT ABS (3) et... | RETURN | 
Le resultat est 3- 

Cette fonction est tres utile pour les programmes mathematiques oil elle 

sert couramment. 

Elle donne la valeur positive de 1' expression entre parentheses. 

SIGNE : 

Cette fonction indique le signe d'un nombre ou d'une expression en rfipon- 
dant +1 si le nombre ou 1' expression est positif et -1 si negatif. C'est 
la fonction SGN- 



Notes 
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I RETURN 



RETURN 



Par exemple tapez: 

PRINT SGN (12) et. . . 

Le resultat est + 1 

Maintenant tapez : 

PRINT SGN (-5) et. . . 

Comme vous vous y attendiez, vous obtenez -]_. 

Maintenant, autorisons-nous une petite recreation! 

Vous avez constate la presence de cassettes pre-programmees , notamment 
celle marquee: color-demos. Vous allez pouvoir les utiliser! Cependant, 
nous devons etudier auparavant le chargement d'une cassette du magneto- 
phone a 1 'ordinateur . 



REGLAGE DU MAGNETOPHONE 






Tout comme une oreille humaine, l 1 ordinateur n'appreciera pas que le ni- 
veau sonore du magnetophone (qui lui transmet les informations enregi- 
strees sur bande) soit trop faible ou trop fort. La seule methode pour 
trouver le volume adequat est malheureusement empirique, c'est-a-dire 
qu'il faut faire une serie d'essais en commencant par un niveau faible, 
et en verifiant le resultat a chaque niveau jusqu'a l'obtention du resul- 
tat desire. 
Done, mettez 1' ordinateur en BASIC , et ef facez l'ecran: 



RESET 



7 



) CTRL J RETURN) ESCj SHIFT ) RETURN) 
^ I B ) X ' IP/ ' 



Introduisez la cassette "Color Demos" dans le magnetophone. Pour chaque 
reglage de volume, il faut: 

1° - faire revenir la bande a son point de depart 

2° - enf oncer la touche START du magnetophone 

3° - taper LOAD puis att endre le debut du signal sonore continu avant 

d'enfoncer |RETURN~I . Le curseur doit disparaitre. II faut attendre 
une quinzaine de secondes avant que 1' ordinateur ne reagisse. 



REACTIONS POSSIBLES DE L'ORDINATEUR : 

a) Le message#9|n|fSYNTAX ERR 
apparait 



b) Rien ne se produit 

c) Le message ERR apparait (avec ou 
sans BIP) 



d) Le message ***MEM FULL ERR ou 
ERR*** MEM FULL ERR apparait 

(av§g 6u §an§ BIP) 

e) L'ordinateur fait BIP et rien 
n ' apparait 



CE OUE VOUS DEVEZ FAIRE 



Notes 



Ne pas toucher au reglage de 
volume mais recommencer 1' ope- 
ration (1) 



Assurez-vous que le delai de 
15 secondes a bien ete respecte 
S'il n'y a ni ^>, ni curseur, 
remettez 1 'ordi nateur en BASIC 



RESET 



^) CTRL ) RETURN) 



17 

Mettre le volume un peu plus 
fort et repren dre a ( 1) . 

Mettre le volume un peu plus 
fort et reprendre a (1) . 



Vous etes sur la bonne voie! 
Apres le BIP, attendez encore 
quelques secondes: vous aurez 
soit un message d'erreur (cas 
c ou d) , ou bien on verra le 
curseur reapparaitre accompagne 
d'un BIP. Dans ce dernier cas, 
stoppez le magneto, puis ta pez 
RUN et appuyez sur I RETURN~1 . 
La bande est "chargee" dans la 
memoire de l'ordinateur et le 
programme commence a se derou- 
ler . 



REGLAGE DEFINITIF DU MAGNETOPHONE : 

Cependant tout le travail que vous avez effectue pour regler le niveau 
sonore de votre magnetophone n'a pas defini le volume optimum, mais 
seulement le meilleur reglage en partant du volume le plus faible possi- 
ble! 

Done, ayant repere soigneusement ce volume, procedez exactement de la 
meme maniere mais en sens inverse, e'est-a-dire en commencant par le 
volume maximum et diminuant progressivement le niveau jusqu'a obtention 
du meilleur reglage possible. Le reglage definitif, le meilleur, se trou- 
vera done a mi-chemin entre celui obtenu a partir du niveau faible et 
celui obtenu a partir du niveau fort. 

NOTEZ-LE TRES SOIGNEUSEMENT, car vous n' aurez (heureusement) plus jamais 
a recommencer ces operations. 
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COMMENT CONSERVER VOS PROGRAMMES SUR CASSETTE : 

Dans les chapitres qui vont suivre , vous allez Scrire vos premiers pro- 
grammes. 

Si vous desirez les conserver sur cassette, voici comment proceder: 

Lorsgue votre programme est terming , branchez le cordon qui relie votre 
magnetophone a votre ordinateur d'un c6te dans la prise cassette OUT de 
l'ordinateur et de 1' autre dans la prise "MICRO EXTERIEUR" du magnetophone 

Faites demarrer votre magnetophone comme si vous vouliez enregistrer. 



Tapez SAVE puis | RETURN 



Si tout est bien fait vous entendrez un BIP dans les 15 secondes et le 
signe ]> reapparaitra sur 1 ' ecran quelques instants plus tard. 

Sinon regardez aux: "REACTIONS POSSIBLES DE L'ORDINATEUR" (page prece- 
dente) . 

ATTENTION : si vous avez un reglage de volume a faire, il porte maintenant 
sur le volume d ' enregistrement. 



Notes 
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CHAPITRE 4 

LA COULEUR C'EST LA VIE <ou le mode graphique) 

Pour utiliser les couleurs disponibles de votre ordinateur, vous devez 
passer en mode graphique-mixte! 

Pour ce faire, tapez QR- Cette commande (facile a retenir: ce sont les 
deux premieres lettres du mot graphique) efface sur l'ecran toute ins- 
cription precedente, laissant la place de 4 lignes de texte dans le bas 
de l'ecran. 

N.B.: La commande TEXT annule le GR et rend de nouveau l'ecran disponi- 
ble pour ecrire sur toute sa surface. 

©Done, vous disposez de 16 couleurs (y corapris le noir et le blanc) 
initialisees de a 15. 

Vous pouvez les visualiser en chargeant la cassette "Color-Demos" ou plus 
directement comme nous allons vous l'expliquer plus loin (voir chapitre 
IX, page 49) . 

Pour afficher une couleur sur l'ecran, vous devez bien sur specifier le 
n° de la couleur choisie et ensuite son emplacement sur l'ecran. Pour 
ce faire, vous devez savoir que l'ecran est divise en 40 colonnes ver- 
ticales, numerotees de (en haut) a 39 (en bas) et de 40 rangees hori- 
zontals numerotees egalement de (a gauche) a 39 (a droite) . Ces 
"rangees" coupent les "colonnes" creant ainsi une trame de 40 petits 
rectangles par ligne. 

Supposons maintenant que vous desirez afficher sur l'ecran un petit 
rectangle vert pomme . D ' abord il faut initialiser la couleur en tapant 
COLOR = 10 (10 est le numero de couleur correspondant au vert pomme). 
Ceci signifie que tout ce qui sera place sur l'ecran sera vert pomme 
jusqu'a ce que vous decidiez de changer de n° de couleur. 
Pour placer votre rectangle en haut et a gauche, tapez PLOT 0, ( tou- 
jour s en haut mais a droite la commande serait PLOT 39/ 0) 

Vous remarquerez qu'il faut toujours indiquer le n° de "colonne" d'abord; 
ou en termes plus precis: 1 ' axe des abscisses (x) (horizontal) a toujours 
priorite sur celui des ordonnees (y) (vertical) . 

Maintenant affichons un rectangle jaune en bas et a gauche: 
Tout d'abord: COLOR = 14 (initialisation nouvelle couleur) . 
Pour situer 1 ' emplacement tapez: PLOT 0/ 39 

A vous maintenant. Essayez un rectangle violet en bas a droite. 
Si vous avez tape: QQL.QR = 5 

PLOT 39, 39 
Vous avez bien saisi le mecanisme! 



Notes 



Vous avez note que les rectangles allumes precedemment en vert pomme, 
jaune et violet restent affiches sur l'ecran. Vous pourriez done tracer 
une ligne! 

Supposons que vous vouliez tracer une ligne bleu outremer horizontale 
de la 5eme colonne a la 9eme colonne au niveau vertical 14, vous pouvez 
evidemment taper: 



COLOR = 


1 




PLOT 


5 


14 


PLOT 


6 


14 


PLOT 


7,14 


PLOT 


8 


14 


PLOT 


9 


14 


Heureusement , 


procede 


r! 





il y a une maniere bien plus simple et plus rapide de 

©Tapez: HLIN 5/9 AT 14 Par consequent, pour tracer une ligne horizontale 
de couleur bleu outremer allant de 1 ' extreme gauche a 1 ' extreme droite 
et au milieu de l'ecran, il est suffisant de taper 1 ' instruction suivante: 

COLOR = 1 

HLIN 0, 39 AT 20 

De meme pour tracer une ligne verticale. Par exemple, VLIN 10, 19 AT 15 
trace un segment de droite vertical entre les lignes 10 et 19, a la colon- 
ne 15 . 

Rappelez-vous qu'en taparit GR, vous rendez a l'ecran sa purete originelle. 
Maintenant vous en savez assez pour essayer vous-meme de composer des 
graphiques simples ou compliques! 

Essayez de tracer une bordure tout le long de l'ecran (de couleur vert 
pomme) puis une croix (de couleur bleu outremer) passant par le centre, 
et vous pourrez ensuite laisser courir votre imagination... 

OH existe aussi une fonction appelee SCRNr dont l'utilite vous apparai- 
tra immediatement. 

Supposons que vous ayez rempli votre Scran de PLOT' en couleurs aleatoi- 
res, realisant ainsi un beau patchwork. Essayez done de determiner la 
couleur exacte des coordonnees 17,23 ou 11,13 } - '■ Difficile dans tout ce 
fouillis, n'est-ce pas? Utilisez done PRINT SCRN (17,23) ou SCRN (11,13)- 

La reponse sera le n° de la couleur de cet emplacement. 

Vous pouvez egalement vous en servir lors d'un test et ecrire par exemple: 

IF SCRN (expr.l, expr.2) THEN expr. 

(pour 1 ' explication des tests, voir chapitre VI). 



Notes 
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EXERCICE IV/1 

Tracez un rectangle dont les quatre c6tes ont des couleurs differentes. 
pSs dessinez unVint au milieu de 1'ecran. Ensuite impnmez le chxffre 
qui correspond a la couleur d'un point de 1'ecran! 

GR 

COLOR = 1 

HLIN 0, 39 AT 

COLOR = 2 

VLIN 0, 39 AT 39 

COLOR = 3 

HLIN 0, 39 AT 39 

COLOR = 4 

VLIN 0, 39 AT 

COLOR = 5 

PLOT 19, 19 

PRINT SCRN (0/ 1) 



NUMEROTATION DES COULEURS 



: 


noir 


1 : 


bleu outremer 


2 : 


vert bouteille 


3 : 


■ bleu ocean 


4 : 


rouge fonce 


5 : 


violet 


6 


ocre 


7 


mauve 


8 


: marron 


9 


: bleu clair 


10 


: vert pomme 


11 


: turquoise 


12 


: rouge clair 


13 


: vieux rose 


14 


: jaune 


15 


: blanc 



CHAPITRE 5 

ECRIVONS NOTRE PREMIER PROGRAMME 



C'est naturellement 



Jusqu'ici, tout ce que nous avions ecrit sur 1 ' ecran s ' inscrivait 
immediatement des que nous avions appuye sur | RETURN^ 
tres interessant mais quelque peu ephemere! 

En effet, si par exemple vous aviez tape PRINT 3 + 4» apres 1 ' execution 
et l'affichage il ne vous etait plus possible de retrouver cette instruc- 
tion; vous etiez obliges, si vpus desiriez obtenir a nouveau ce resultat, 
de taper une nouvelle fois PRINT 3 + 4- 

Nous allons done etudier un mode d'execution differe dont 1 ' utilisation 
est indispensable pour la construction et le developpement d'un program- 
me . 

DEFINITION D'UN PROGRAMME 

C'est une serie d ' instructions dont l 1 execution sequentielle permet 
d'obtenir un ou plusieurs resultats. 

Pour signaler a l'ordinateur qu'il s'agit d'un programme et qu'il doit 
done stocker les informations sans les executer immediatement, il faut 
initialiser un debut et une fin. Celui-ci comprendra qu'il s'agit d'un 
debut si 1 ' instruction est precedee d'un n° de ligne (comprise entre et 
32767) et la fin sera indiquee par la commande END tapee a la suite du 
dernier n° de ligne du programme. 

Ex: 10 PRINT 3 + 4 puis f rapper la touche JRETURNJ 
20 END puis frapper la touche I RETURN! 

Vous remarquerez que, contrai rement a u mode d'execution immediat, rien ne 
se passe apres avoir enfonce [RETURN I ! (seul le signe ^> apparait) . 
Vous avez compris que l'ordinateur attend une instruction pour 1' exe- 
cution du programme . 

OCelle-ci est RUN- Tapez-la sur le clavier (sans n° de ligne cette fois!) 
puis | RETURN! . 
Et lisez le resultat. 



Tapez encore une fois run et IRETURNI : le resultat s'affiche de nouveau. 
Le programme est done entre dans la memoire de l'ordinateur. 

L'avantage d'un programme, comme nous 1 ' indiquons plus haut, est de 
pouvoir obtenir autant de fois que nous le desirons le meme resultat 
(cette notion est importante, car elle permet de stocker sur cassette les 
programmes que vous realiserez pour que vous puissiez les reproduire au 
moment oil vous en aurez besoin) . 

Allons plus avant dans 1 ' examen des possibilites d'un programme et la 
notion de stockage. 

Actuellement, votre ecran affiche le resultat 7. Mais vous voulez mainte- 
nant examiner la liste des instructions de votre programme. II existe 
O une commande toute simple pour cela: LIST- 

Cependant, il est utile d'ef facer toute inscription de 1' ecran. 
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Notes 







(Vous vous rappelez comment?) 

D 



Appuyez sur 




in) 



RETURNJ puis tapez LIST/ puis 



[RETURN | 



et 



votre programme est af f iche sur l'ecran. 

Tapez RUN puis I RETURN! et le resultat apparaltra de nouveau. 

Une seule instruction vous permet de "nettoyer" la memoire de l'ordina- 
teur de s instructions de votre programme: c'est NEW- Tapez-la puis 

iRETURN 1 . , . 

Maintenant tapez RUN , Puis iRETURNl ... Rien, n'est-ce pas? 

NUMEROTATION DES LIGNES 

Nous avons vu que nous pouvions utiliser des numeros de a 32767. II 
est important de noter que l'ordinateur execute le programme dans 1 ordre 
croissant des numeros de ligne et pas a pas. Quant au procede de nume- 
rotation, vous pouvez , bien sur, ecrire le programme suivant de cette 



fa 


gon: 







PRINT 


II KM 


1 


PRINT 


HAM 


2 


PRINT 


up II 


3 


PRINT 


ii A n 


4 


END 





Vous avez tape RUN Puis I RETURN I et vous lisez le resultat. 

Eh oui! il y a une faute, vous vouliez ecrire KAPPA- Que faire dans ce 

cas? 

II n'y a qu'un seul moyen, retaper la ligne 3: 3 PRINT M P" 

la ligne 4: t] print "A" 
et: 5 END 

Alors que si vous aviez tape ceci: 
10 PRINT » K" 
20 PRINT mam 

up ii 

MA M 



PRINT 
PRINT 
PRINT 

50 m 

II vous etait extremement facile de rajouter 35 PRINT "P" 



30 
40 



En resume, il est conseille de garder un gcart de 10 numeros entre 
chaque instruction de maniere a intercaler ulterieurement d'autres ins- 
tructions. D'autant que l'ordinateur reclassera automatiquement les 
lignes dans 1 ' ord_ge numeriquel 



REVENONS SUR LES POSSIBILITY DES COMMANDES "LIST 1 ET RUN 1 



af f iche 



LIST ; Nous avons vu que si vous/ttapez |_ISTr votre programme sera ; 

de a N sur l'ecran sou* conditions , bien sur, qu'il ne depasse 

pas les 24 lignes de capacite de l'ecran, sinon il se deroulera 

jusqu'a la fin affichant ainsi les 24 dernieres lignes!) 

Mais vous pouvez lui demander l'affichage d'une seule ligne LIST 130 

ou d'une partie comprise entre deux numeros LIST 130, 200 

ou il affichera le programme compris depuis la ligne 130 jusqu'a 

la ligne 200. 

RUN : De la meme maniere, si vous voulez qu ' une partie seulement du 

programme s' execute, tapez run 130 et l'ordinateur commencera 1' exe- 
cution a partir de la ligne 130. 

Nous avons vu que pour effacer le programme en cours (ce qui est neces- 
saire pour en inscrire un autre comportant les memes numeros) vous 
devez taper NEW- Cependant, il vous arrivera certainement d'avoir a mo- 
difier une ou plusieurs lignes de votre programme. 

Pour ce faire, plusieurs possibilites s'offrent a vous. 

Vous avez tape par exemple 130 print 31 + 4 | RETURN | et vous vouliez, 
bien sur, entrer 3 + 4- 

Vous pouvez: 



taper 130 puis | RETURN I , ce qui annulera completement 1 ' instruction, 
et retaper correctement la ligne 130, soit utiliser la correction 



au moyen de 



ESC 



D 



(voir explications au glossaire) . 



- ou bien utiliser la commande DEL pour une annulation totale de la ligne. 
ex: DEL 130 

Mais cette instruction est .surtout valable si vous avez, lors d'un long 
programme, une serie de lignes a annuler. II est alors pratique d' utili- 
ser 1 ' instruction suivante: 

DEL 130/ 150 qui supprimera les lignes 130 a 150 inclusivement . 

UN AUTRE TRUC INTERESSANT : 

Si, en cours de deroulement de programme, vous desirez 1 ' arreter a un 
moment quelconque avant qu 'il ne s ' arrete de lui-mSme, il suffit 



d'appuyer sur les touches 



CTRL 



et le programme s'arritera. 



Pour continuer, tapez CON et le deroulement reprendra la ou il s'etait 
arr§te . 



Le fait de frapper 



CTRL 



tion a la regie generale (avec la touche 



sans appuyer sur I RETURN I est la seule excep- 

dont nous allons parler 



CTRL 



Notes 



O dans quelques lignes) . Ceci nous amene a vous parler d'une e rreur rela- 
tivement frequente qui consiste a enfoncer la touche |RESET| au lieu 
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de [RETURN | (elles sont tres proches l'une de 1 ' autre sur le clavier). 
Ce fait provoquera 1' apparition de l'asterisque qui indique que vous 
etes pass e en lan gage machine. Rien n'est perdu, il suffit d'appuyer sur 
et IRETURNI , et vous serez a nouveau en langage BASIC et retrouve- 



CTRL 



rez 1' integrality de votre programme. 
Attention cependant de ne pas utiliser 



CTRL 



B 



Dans ce cas, bien que vous 



reveniez ef f ectivement en BASIC, vous aurez perdu comple tement le pro 
gramme en cours . A ce propos nous vous rappelons que le n'est 



B 



utilise que pour la premiere mise en route de l'appareil apres le [RESET| . 

O Nous venons de voir plus haut que pour ecrire un programme il etait ne- 
cessaire de numeroter chaque ligne. Mais si votre programme est assez 
long, il serait fastidieux de taper a chaque fois les chiffres. Nous avons 
done utilise une astuce pour vous faciliter la tache . 

Supposons que vous vouliez commencer votre programme a la ligne 20. 
Avant toute chose, tapez AUTO 20 puis I RETURN | , ce qui aura pour effet 
d'indiquer a 1 ' ordinateur d'af richer automatiquement une numerotation des 
lignes de 10 en 10, a partir de la ligne 20. Essayez! 

Autre exemple: si vous vouliez demarrer a la ligne 100, et numeroter de 
2 en 2, 1 ' instruction serait AUTO 100,2- 

Meme resultat que ci-dessus, mais a partir de la linge 100, puis 102, 
104 etc... (vous pouvez aussi bien entrer AUTO 500,25 si vous desirez 
un intervalle de 25) . 

Quand vous atteignez la derniere instruction de votre programme, vous 
voyez que sur l'ecran est affiche le n° xxx qui a ttend votre l igne 



d' instruction suivante. A ce moment, appuyez sur 



CTRL 



X 



(sans | RETURN) ) 



ce qui affichera une barre oblique a cote de n° xxx et passera a la ligne 
(sans numerotation) . 

La, il y a deux possibilites : soit vous desirez terminer def initivement 
votre programme et vous tapez man (manuel) , soit vous pouvez avan_t_cela 
effectuer un RUN ou un LIST que vous tapez directement apres le 



CTRL 



X 



Dans ce dernier cas, une fois le RUN (ou le LIST) ef f ectue , vous verrez 
apparaitre le numero de 1 ' instruction suivante du mode AUTO • 



O Familiarisez-vous avec la commande 



CTRL 



X 



car elle vous permet: 



1° - de sortir du mode de numerotation automatique, 

2° - d'annuler en cours de programme une ligne d" instruction erronee, 
sans sortir de la numerotation AUTO» 

r - de sortir momentanement du proqramme AUTO pour taper une ligne 
intermediaire . 



NOTION DE VARIABLE NUMERIOUE Notes 

ASSIGNATION 

Avant de vous lancer dans les exercices du chapitre V, nous allons vous 
donner des precisions sur ce que l'on entend par variable numerigue et 
par assignation en inf ormatigue . 

Lorsque vous ecrivez sur papier 1 ' expression: 

X = 4 + 1/8 

vous considerez X comme variable car X symbolise une expression numerigue 
en general, a laguelle on assigne (pour le cas present) la valeur 4 + 1/8. 

Votre ordinateur travaille avec des variables. Si vous ecrivez un pro- 
gramme avec une ligne comme ceci: 

20 x = 12 + 15 * 6 

alors a partir de ligne 20 la variable X aura la valeur 102 pour le reste 
du programme (a moins que vous ne la modifiez en cours de programme) . 
Si par exemple vous ecrivez (tou jours dans le meme programme) 

40 A = X/2 - 71 

alors a la ligne 40 on assigne a A la valeur X/2 - 71. Or depuis la ligne 
20 X vaut 102; il s'ensuit qu'a la ligne 40 A prendra la valeur 102/2-71, 
c'est-a-dire -20. 

Si vous voulez verifier essayez le petit programme suivant: 

20 x = 12 + 15 * 6 

40 y = x/2 - 71 

60 PRINT "X="; X, "Y ="; Y 

70 END 

Les variables peuvent etre des lettres, ou des lettres suivies de chiffres 
ou de lettres. 

Exemple: 

ALPHA, PR 20B, TEMPERATURE... 

O Avant de lancer un programme (avant de faire run) les variables utilisees 
dans le programme ont pour valeur 0. 

Si vous desirez remettre a toutes les variables, utilisez la fonction 
CLR comme dans l 1 exemple qui suit: 

10 x = 123 

20 END 

RUN 

PRINT X (resultat 123) 

CLR 

PRINT X (resultat 0) 



III 



•I II f f, » Ti H fl fl fl f| f| (J (T Rl Iff ,T iT ,T iT iT T f d 



^^JUlJUJLliJUJJJUJLJJUJLlLlJllJ 






Avant de passer aux exercices, nous allons vous parler d'un type d' assi- 
gnation tres special que l'on rencontre constamment en BASIC; par 
exemple: 

N = N + 2 

Dans ce cas, on retrouve la m§me variable a droite et a gauche du signe 

egal. 

Mathematiquement, c'est faux. II suffit de prendre dans 1 ' exemple ci- 
dessus N = 0, on a alors 0=0+2, soit 0=2, ce qui est absurde en 
soi, mais vrai en informatique. 

En effet, ici le signe = n'a pas exactement la meme signification qu'en 
mathematiques. En BASIC le signe = signifie: affecter a la variable 
situee a gauche du signe = la valeur calculee dans le nombre de droite. 
Prenons un exemple. Veuillez taper le programme suivant: 

10 V = 

20 v = v + 1 

30 PRINT V 

40 v = v + 1 

50 PRINT V 

60 v = v + 1 

70 PRINT V 

80 END 

Maintenant, analysons-le ligne par ligne: 

Ligne 10 V prend la valeur 

Ligne 20 La nouvelle valeur de V est egale a l'ancienne valeur de V 
(V = 0) + 1. Ce qui revient a ecrire: 
V (nouvelle valeur) = V (ancienne valeur) + 1 
soit: V = +1 

d'ou: V = 1 

Ligne 30 L'ordinateur fait imprinter la valeur de V:V = 1 

Ligne 40 Ici, la demarche est la m§me qu'a la ligne 20: 

V = V + 1 
soit: V = 1 + 1 D'ou: V = 2 

Ligne 50 L'ordinateur fait imprimer la valeur de V:V = 2 

Ligne 60 V=V+1=2+1- Soit: V = 3 

Ligne 70 L'ordinateur fait imprimer la valeur de V:V = 3 

Nous verrons plus loin des exemples pratiques de ce type special 
d' assignation. 



COMMENT MODIFIER UNE.LIGNE DE PROGRAMME SANS LA TAPER DE NOUVEAU 

Par exemple, supposons que vous ecriviez le programme suivant: 

10 PRINT "CECI EST UN PROGREMME" 

20 END 

Vous vous etes apergu d'une faute d ' orthographe a la ligne 10. 
Voici la methode pour corriger sans avoir a retaper toute la ligne. 

Faites:LIST 10 



Appuyez alternativement sur |ESC| et sur |F| , jusqu'a ce que le curseur 
soit a la hauteur du numero de la ligne. 

Tapez ensuite alternativement sur \e5c\ et sur [a] jusqu'a ce que le 
curseur soit sur le premier chiffre du numero de la ligne: 

D]0 PRINT "CECI EST UN PROGREMME" 

Ensuite, a l'aide de [=^\ amenez le curseur sur la lettre (e dans le cas 
present) que vous desirez chang er, et tapez la nouvelle lettre (ici: a) • 
Puis, tou jours a l'aide de f^^l , amenez le curseur hors de 1 ' instruction, 
comme ceci: 

10 PRINT "CECI EST UN PROGRAMME"!^] 

Faites |RETURN| , puis tapez LIST: comme vous le voyez, votre instruction 
est corrig§e. 

(II va de soi que ces modifications sont aussi valables pour modifier 

autre chose gije d' 1 t py t p Par a^om^io „>,-,,.,„„_ i„ j__^ ■ _,.-,__ 

autre- Gilo's - § dUe du texte. Par exemple changer le nom des variables, les 
numeros des lignes, etc..) 

D'un e.maniere generale, pour modifier une instruction vous disposez de: 

qui deplacent le curseur en recopiant dans la memoire les 



ESC 



D 



ESC 



caracteres que ce dernier a "TRAVERSES" 
A J (deplace le curseur a droite) 
B J (deplace le curseur a gauche) 
c J (deplace le curseur vers le bas) 
| D J (deplace le curseur vers le haut) 



En effacant de la memoi- 
re les caracteres "TRA- 
VERSES" par le curseur. 



Ces touches vous seront d'une grande utilite pour les instructions longues 



Notes 
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EXERCICE V/1 

Addition 
Soustraction 

Ecrivez un programme qui vous imprime la somme d' argent disponible par 
mois : 



Ressources: deux salaires differents 



- Depenses mensuelles: loyer, telephone 

assurance, voiture 



par exemple: SI = 4000 Francs 
S2 = 3500 Francs 

par exemple: L = 1800 Francs 
TEL = 100 Francs 

ASS = 200 Francs 
VOI = 400 Francs 



10 r = 4000 + 3500 

20 d = 1800 + 100 + 200 + 400 

30 AD = R - D 

40 PRINT "ARGENT DISPONIBLE PAR MOIS: 11 ; AD; "FRANCS" 
50 END 

EXERCICE V/2 

Multiplication 

Ecrivez un programme qui vous calcule le temps necessaire pour aller d'une 
ville a une autre en voiture en prenant une vitesse moyenne. 

par exemple: Bordeaux - Paris D = 540 km 

Vitesse moyenne V = 90 km/h 

10 d = 540 

20 v = 90 

30 t = d/v 

40 print "temps necessaire:"; t; "heures" 

50 END 

EXERCICE V/3 

Addition 

Multiplication 

Division 

ATTENTION: 

BASIC sans virgule flottante 



Supposons que vous ayez fait le voyage de l'exercice V/2 a trois personnes 
que votre voiture ait consomme 48 litres d' essence (prix: 2,50 Francs/li- 
tre) et que le peage de l'autoroute ait coute 45 Francs. 

Ecrivez un programme qui calcule les depenses par personnel 

10 c = 48 

20 pe = 250 

30 pa = 4500 

40 p = 3 

50 d = ((c * pe + pa) / p) / 100 

60 PRINT "DEPENSES PAR PERSONNES; 
70 END 



D; "FRANCS" 



EXERCICE V/4 

Valeurs aleatoires 

Utilisez l'ordinateur comme un de . Ecrivez d'abord un programme qui 
affiche le resultat d ' un coup avec un de , et ensuite un programme qui 
donne le resultat d'un coup avec deux des. 

10 DE = RND (6) + 1 

20 PRINT DE 
30 END 

La premiere et deuxieme ligne peuvent etre ecrites dans une seule: 

50 PRINT RND (6) + 1 
60 END 

Maintenant pour 2 des: 

80 PRINT RND (6) + RND (6) + 2 

90 END 

(On utilise la fonction rnd pour simuler le jet aleatoire des des) . 



Notes 
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CHAPITRE 6 

MODES DECOMPARAISON cles tests) 



Avant de parler des modes de comparaison, nous avons besoin de connaitre 

la notion de branchement inconditionnel . 

Par exemple 100 GOTO 20 est un branchement inconditionnel. Cela signifie 

que la ligne d" instruction n° 100 ordonne a l'ordinateur de retourner 

continuer son execution a la ligne d ' instruction n° 20. 

Exemple: supposons que vous desirez imprimer les uns apres les autres 

les nombres de 1 a 20. 

Non! Vous n'allez tout de meme pas ecrire: 

PRINT 1 

PRINT 2 

PRINT 3 ETC. , . 

En utilisant 1 ' instruction GOTO^ vous pouvez ecrire: 

10 N = 1 

20 PRINT N 

30 N - N + 1 

40 GOTO 20 
OCe mode d' execution s'appelle une "boucle ouverte". Ce programme est en 
auelaue sorte "place sur orbite", etant donne que 1 ' instruction 40 



L'ordinateur va ainsi afficher tous 



quelque sorte "pl£ 

renvoie indefiniment a la ligne 2( 
les entiers jusqu'a sa capacite maximum. 

Cependant, il y a un moyen tres simple de lui indiquer une limite precise 
(par exemple: 10) . 
Pour cela, nous allons utiliser 1 ' instruction n I F ... THEN 11 

Voici le programme ainsi modifie: 

10 N = 1 

20 PRINT N 

30 N = N + 1 

40 IF N > 10 THEN END 

50 GOTO 20 

(Remarquez que 1 ' on n'a pas besoin de terminer le programme par END' car 

1' instruction END est incluse dans le test). 

L' instruction IF ... THEN fonctionne de la maniere suivante: 

Si (if) 1' expression mathematique est vraie (N > 10) , alors (THEN) le 

programme s'arrete (END) • 

Si (if) 1' expression est fausse (N ^ 10) , alors (THEN) le programme passe 

a la ligne suivante (50 GOTO 20) . 



On pourrait egalement ecrire: 
10 N = 1 
20 PRINT N 
30 N = N + 1 
40 IF N < 11 THEN 20 
50 END 
©Apres THEN vous pouvez aussi mettre une assignation ou bien un ordre 
d'affichage. Exemple: 



100 

520 



IF A = 2 
IF C - 



THEN PRINT A 
THEN D = 5 



Appliquons maintenant 1 ' instruction M I F • . . THEN M e t une boucle ouverte au 
mode graphique . 

Entrez le programme suivant: 

INSTRUCTION 



NEW 

10 GR 

20 COLOR = 1 

30 COLONNE = 

40 VLIN 0, 39 AT COL 



50 colDMiB - COLtMt + 1 
60 IF COI_Mtf0 < 40 THEN 40 



70 END 



EXPLICATIONS 

Efface le programme precedent 

Etablit le mode graphique - mixte 

Selectionne la couleur 

Fixe le point de depart sur l'ecran 
(chaque colonne sera remplie successi- 
vement de gauche a droite) . 

Trace une ligne verticale a la colonne 

0. 

Augmente (a chaque passage) le n° de 

la colonne de 1. 

Colonne, maintenant, egale 1. 

Verifier que la nouvelle valeur de la 
colonne est inferieure a 40. Si oui le 
programme retourne a 40 pour placer une 
nouvelle ligne verticale. 

Quand la valeur de la colonne atteint 
40, le programme passe a cette ligne et 
s ' arrete . 



O Vous constatez que le programme ci-dessus est tres clair car en face de 
chaque instruction figure son explication detaillee. II serait bien agre- 



Notes 
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able de pouvoir l'obtenir sur 1 -Scran, de maniere a ce que le debutant 
sache ce qu'il a fait, sans risque de se tromper sur la signification de 
sallgne d' instruction. Cette possibility existe, c'est la remarque (REM). 

Recrivons le programme ci-dessus comme suit: 

NEW 

5 REM j'ETABLIS LE MODE GRAPHIQUE MIXTE 

10 GR 

15 REM JE SELECTIONNE LA COULEUR 

20 COLOR = 1 

25 REM JE FIXE LE POINT DE DEPART SUR L'ECRAN 

30 COLONNE = 

35 REM JE TRACE UNE LIGNE VERTICALE A LA COLONNE 

40 VLIN 0/39 AT COLONNE 

45 REM J'AUGMENTE A CHAQUE PASSAGE LE N° DE LA COLONNE DE 1 

50 COLONNE = COLONNE + 1 

55 REM VERIFIER QUE NOUVELLE VALEUR DE COLONNE EST < 40, SI OUI PROGRAMME 

RETOURNE A 40 POUR NOUVELLE LIGNE 
60 IF COLONNE < 40 THEN 40 
65 REM QUAND VALEUR COLONNE = 40 PROGRAMME PASSE A LIGNE SUIVANTE ET 

S'ARRETE 
70 END 
Essayez. C'est plus comprehensible, n'est-ce pas? 

Bien entendu, la commande REM n'intervient en aucune facon dans le derou- 
lement du programme et n'affecte pas celui-ci. 



Voici un autre exemple, qu 
vue. 

10 I = 

20 a = I * 2 - 13 
30 i = i + 1 

40 IF SGN (A) = " 1 THEN 20 

50 PRINT "CA Y EST A EST POSITIF" 



i utilise la fonction SGN q ue nous avons d§ J a 



60 END 



EXERCICE VI/1 



GOTO 



CTRL ) CON 
LET 



IF 



THEN 



Reprenez l'exercice V/4 et changez-le pour qu'il se deroule sans fin. 
Arretez le programme de temps en temps et faltes-le continuer ensuite. 

10 PRINT RND (6) + RND (6) + 2 
20 GOTO 10 



Changez ce programme de nouveau pour afficher 21 tirages de des! 

100 A = 

110 PRINT RND (6) + RND (6) + 2 

120 A = A + 1 

130 IF A = 21 THEN 150 

140 GOTO 110 

150 END 



Notes 
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EXERCICE VI/2 

REM 

GR 

Ecrivez un programme qui dessine un rectangle au milieu de 1 -Scran (par 

exemple 9 points sur 6) et memorisez le titre du programme. 

5 REM DESSIN D'UN RECTANGLE 

10 Z - 

20 GR 

30 COLOR = 12 

40 y = 17 
50 xl = 16 
60 x2 - 24 

70 HLIN Xl/ X2 AT Y 

80 Y = Y + 1 

90 1 = 1+1 

100 IF Z = 6 THEN 120 

110 GOTO 70 

120 END 

En modifiant les valeurs pour COLOR, Y, Xl et X 2 vous pouvez deplacer 

le rectangle et changer sa couleur. 



CHAPITRE 7 

UNPEU DELOGIQUE 



II est maintenant necessaire de vous parler de la notion de verite... que 
comprend 1 ' ordinateur ! 

En effet, celui-ci peut distinguer entre ce qui est vrai et ce qui est faux! 
Etant donne que cette notion a une tres grande importance pour la construc- 
tion de vos programmes, nous allons 1 ' approfondir ci-apres. 

II est utile de vous rappeler d'abord les symboles possibles pour des 
affirmations : 

^> plus grand que 
<C moins grand que 

= strictement egal a 
^>= plus grand ou egal a 
<^= plus petit ou egal a 



Attention: ne cherchez pas les touches -^ ou ^- , 
elles n'existent pas. II faut taper<\ = ou ^> = 
pour obtenir des inegalites larges. 



^n'est pas egal a 
(ou different de) 



Le symbole <^ ^> a la meme signification. 

Par exemple, 1 ' affirmation 100 > 10 est evidemment vraie. 

Si vous tapez PRINT 100 >10, 1' ordinateur repondra 1 qui est le chiffre 
utilise pour signifier que 1 ' affirmation est juste. 

Dans le cas contraire (exemple: PRINT 10 > 100) , la reponse sera qui 
signifie que 1 ' affirmation est fausse. 

Les affirmations peuvent inclure aussi bien des variables que des expressions 
mathematiques ou des nombres. Vous pouvez ecrire par exemple: 

JEAN > FREDERIC 

Cette affirmation peut etre vraie ou fausse! 

En effet, si vous avez pris soin d'affecter auparavant une valeur numerique 
a chacune de ces variables (par exemple: JEAN = 4 et FREDERIC = 8) t alors 
1' affirmation ci-dessus est fausse et la reponse affichee sera 0. 

Par contre, si JEAN = ~4 et FREDERIC = S, 1 'affirmation est vraie et la 
reponse sera 1. 

ONous venons de voir que la reponse a vos affirmations est tou jours exprimee 
par 1 ou par 0. De ce fait, on peut les utiliser dans des expressions mathe- 
matiques, au lieu d' ecrire 1 ou 0. 

ex: PRINT 3 + (4 >2) affichera la valeur 4 

De meme: A = 5 #■ 2 affectera la valeur 1 a la variable A 

Enfin, une instruction apparemment aussi farfelue que ALPHA = 18 = 2 signifie 
simplement que la variable ALPHA sera affectee de la valeur puisque de 
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toute evidence 18 n'est pas egal a 2* 

Cela va encore plus loin! 

En effet, si quelque chose n'est pas vrai, c'est faux! et si quelque chose 

n'est pas faux, c'est vrai! Cette regie, bien particuliere aux ordinateurs, 

ne souffre pas d' exceptions. 

ex: tapez PRINT NOT 1 puis PRINT NOT (NOT represente la fonction logique 

de negation de votre ordinateur) . 

La reponse sera bien dans le premier cas 0, dans le second cas 1. Eyidemment 

vous pouvez toujours utiliser des expressions telles que PRINT NOT (-Z4 ?■ L) * 

ce qui donne comme resultat car 24 > 2 est vrai et vaut 1 en logique, 

et NOT 1 vaut 0. 

OCeci nous amene tout naturellement a un autre systeme d' affirmations , tout 
aussi important et que nous appelons "les modes de relation logique". 

Ainsi la phrase "un hexagone a 6 cStes" est vraie, ainsi que cette autre 
phrase "ce manuel est en f rancais" . 
Relions ces deux phrases comme ceci: 
"Un hexagone a 6 cotes AND (et) ce manuel est en f rancais". Bien sur, 1 ' en- 
semble de la proposition est vrai! 

Maintenant ecrivons: 

"Un hexagone a 4 cotes AND (et) ce manuel est en frangais". Bien que seule 
la deuxieme proposition soit vraie, la phrase complete prise dans son ensemble 
est... fausse! Pour qu'elle soit vraie, il aurait fallu que la lere proposi- 
tion et_ la 2eme soient vraies toutes les deux. 

De mime que si vous ecriviez: 

"Un hexagone a 4 cotes AND (et) ce manuel est en allemand" . L' ensemble est 

faux! 

REGLE GENERALE 

Quand vous reliez deux phrases ou affirmations par la relation logique AND 
(et) , la reponse sera: 

1° - 1' ensemble est vrai si les deux parties sont vraies 
2° - 1' ensemble est faux si AU MO INS l'une des deux parties est fausse! 

Vous voyez surement les possibilites que vous off re 1 ' application de cette 
regie (par exemple si on l'associe a 1 ' instruction IF ... THEN)- Mais seule, 
elle serait insuffisante et elle est completee par un autre mode de relation 
logique . 
Ecrivons : 

Un hexagone a 6 cotes OR (ou) ce manuel est en allemand". Pour que 1' ensemble 
soit vrai, il suffit que l'une ou 1 ' autre des deux propositions soit vraie. 
Dans 1' exemple ci-dessus, 1' ensemble est done vrai, car un hexagone a bien 
6 cotes meme si ce manuel n'est pas en allemand! 



D'OU NOUS TIRONS LA REGLE GENERALE CONCERNANT LA RELATION LOGIQUE "OR": 

a) L' ensemble est vrai si 1 ' une ou 1 ' autre des deux parties est vraie (ou 
les deux!) 

b) L' ensemble est faux si les deux parties sont fausses. 

Voici maintenant quelques exercices a pratiquer sur votre ordinateur, 
d'abord pour la relation AND/ puis avec la relation OR- Mais essayez de 
trouver la reponse avant qu'elle vous soit donnee par la machine. 



PRINT 1 AND 1 

PRINT 1 AND 

PRINT AND 1 

PRINT AND 

PRINT (3 >2) AND 

PRINT (NOT 0) AND (3*3=9) 

PRINT (4=#=5) AND (4 = 5) 






s 



! 



1 



I 



PRINT 1 OR 1 

PRINT 1 OR 

PRINT OR 1 

PRINT OR 

PRINT (4=#=5) OR (4 = 5) 

PRINT 1 OR (0 AND 1) 

PRINT ((3 >H) OR (54 < 327)) AND (not 0) 

O Une autre information est necessaire: 

L' ordinateur considere que ]_ est vrai et que est faux. Mais il considere 
egalement que tout nombre entier (different de 0) est vrai. Essayez les 
deux exemples suivants: 

PRINT 15 OR 

print -256 and 32767 

Notez bien que la reponse de 1 ' ordinateur pour les relations du type pr§- 
cite sera tou jours 1 ou 0. 

Pour ces deux exemples le resultat est \. En effet, pour le premier, 15 
etant different de 0, il est considers comme vrai (1); on a done en fait 
PRINT 1 OR 0/ ce qui est vrai (propriete du OU logique) . 

Meme chose pour le second exemple, car logiquement les deux quantites 
valent ]_, et 1 AND 1 e'est vrai (1). 

REMARQUE IMPORTANTE : 

Afin de rendre vos instructions parfaitement claires, utilisez les paren- 
theses. Enfin, voici les nouvelles regies de priorite pour les symboles 



Notes 






Studies jusqu'a maintenant, par ordre decroissant. 
1° ( ) 



2° 


NOT/ - (signe moins) 


3° 


A 


4° 


*, /, MOD 


5° 


+ , - 


6° 


X, =,<=,>=,# 


7° 


AND 


8° 


OR 



t 

EXERCICE VII/1 

Ecrivez un programme pour 2 variables A et B dont les valeurs sont 

aleatoires ( RND (6))- Affichez le nombre de coups qui sont necessaires 
pour arriver a /\ = B- 



10 


N = 


20 


A = RND (6) 


30 


B = RND (6) 


40 


N = N + 1 


50 


IF A< >B THEN 20 


60 


PRINT "N = » ; N 


70 


GOTO 10 



Remarque: ce programme n'a pas besoin de 1 ' instruction END car 70 GOTO 10 
fait en sorte que l'ordinateur boucle indefiniment entre les lignes 10 et 
70. 

EXERCICE VII/2 

AND, OR 

Prenez cette fois 4 variables: A et B comme dans l'exercice VII/1, et CI 

et C2 avec les valeurs RND (16) . 

Ecrivez un programme ou des lignes verticales seront affichees dans les 
cas ou A = B et Cl = C2. 

Changez la valeur de la coordonnee X apres chaque ligne (de a 39) , ainsi 
que la couleur. 

10 GR 

20 X = 

30 A = RND (6) 

40 B = RND (6) 

50 Cl = RND (16) 

60 C2 = RND (16) 

70 IF (A = B) AND (Cl = C2) THEN 90 

80 GOTO 30 

90 COLOR = Cl 

100 VLIN 0, 39 AT X 

110 X = X + 1 

120 IF X = 40 THEN END 

130 GOTO 30 

Changez maintenant la ligne 70: 

70 IF (A = B) OR (Cl = C2) THEN 90 



Notes 
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CHAPITRE 8 

L'ORGANIGRAMME 



Lorsque devant votre feuille blanche et votre ordinateur, vous tentez 

la construction d'un programme, 1 ' approche peut vous en sembler difficile 

pour peu que de nombreux parametres entrent en jeu. 

Car, malheureusement, 1' ordinateur ne peut pas (pas encore!) vous indiquer 
le meilleur moyen de lui donner des instructions, et l'ordre dans lequel 
vous allez les introduire n'apparait pas tou jours clairement. II est done 
necessaire d'utiliser une methode empreinte de logique et de rigueur pour 
elaborer l'algorithme qui vous permettra de suivre une logique adaptee 
a la machine. 

Cela est moins difficile qu'il n'y parait! 

II faut proceder d'abord a 1' analyse du probleme (que nous designons par 

le terme organigramme ) . 

- Stablir la liste complete des parametres devant intervenir et leur 
affecter des variables, 

- etablir la liste complete des resultats partiels qui seront utilises 
en cours de programme et leur affecter egalement des variables, 

- decomposer le probleme en actions principales et etudier 1 ' enchalnement 
entre elles. 

Bien entendu, si le programme est complexe, il faut d'abord le detainer 
en sous-problemes, sans les analyser a fond pour le moment, mais seule- 
ment leur enchalnement, leurs parametres, et les variables. 

Ensuite, reprendre chaque sous-probleme et faire d'une maniere extreme- 
ment detaillee leur analyse complete. 

Nous appellerons la representation de toutes ces operations "ORGANIGRAMME" 

L' organigramme est une representation du programme a 1 ' aide des figures 

suivantes : 



CZ3 




Debut ou fin 



Instructions, initialisations, 
operations diverses 



Reserve aux TESTS et generalement a 
toutes les instructions qui renvoient 
dans des directions differentes. 



D 

O 



Fleches de liaison reliant ces figures entre 
elles (affectees d'un OUI ou d'un NON dans 
le cas de TESTS) . 



Si 1 'organigramme deborde le cadre d'une 
feuille, on utilise le cercle pour indiguer 
le n° de branchement auguel il se relie. 



Notes 



Voici comme exemple un programme et son organigramme : 

10 HEURE = RND (30) 

20 PRINT HEURE 

30 IF (HEURE >= 22) AND (HEURE < = 4) THEN 70 

40 IF (HEURE >= 12) AND (HEURE < = 18) THEN 90 

50 IF (HEURE >18) AND (HEURE < 22) THEN 110 

60 IF (HEURE >4) AND (HEURE<12) THEN 130 

65 GOTO 10 

70 PRINT "BONNE NUIT" 

80 END 

90 PRINT "BONNE APRES MIDI" 

100 END 

110 PRINT' "BONSOIR" 

120 END 

130 PRINT "BONJOUR" 

140 END 
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ORGANIGRAMME 

f DEBUT J 



CHOISIT UNE HEURE 
AU HASARD 
ENTRE ET 2 9 



C FIN X 




OUI 



AFFICHER 
"BONNE NUIT" 



OUI 



AFFICHER 
" BONNE 
APRES MIDI' 



OUI 



AFFICHER 
"BONSOIR" 



OUI 

— ►— 



AFFICHER 
"BONJOUR" 



A partir de ce chapitre nous vous donnerons les organigrammes des pro- 
grammes-exemples, et des exercices comportant de nombreux GOTO ou des 



tests. 



EXERCICE VIII/1 

Ecrivez un organigramme pour l'exercice VII/2. 



( DEBUT ) 



INITIALISATION 
GR / X = 








OUI 


COLOR = 


CI 




i 


VLIN 0, 


39 


AT X 


+ 


X = X + 


1 





Notes 
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CHAPITRE 9 

LES BOUCLES (for...next...step) 



Reprenons l'exemple de la boucle ouverte proposee au chapitre precedent: 



10 


N = 1 


'M 


PRINT N 


30 


N = N + 1 


40 


IF N < 11 THEN 20 


b0 


END 



Or, une boucle comporte tou jours un haut et un bas , ou un commencement 
et une fin. Dans le programme ci-dessus, le commencement est la ligne 
n° 10, la fin la ligne 50. Ce programme affiche les nombres entiers 
compris entre 1 et 10, 10 etant la limite de la boucle. 

©Mais on peut ecrire le programme d'une autre maniere en utilisant 
1' instruction FOR ,., NEXT : 

100 FOR N = 1 TO 10 

110 PRINT N 

120 NEXT N 

130 END 

II faut utiliser 1 ' instruction RUN 100 pour executer ce programme, car 
si vous tapez seulement RUN? le programme partira de la ligne 10 du pre- 
cedent. Ou alors tapez |\|£W avant d' ecrire le deuxieme programme. 

©La ligne 100 est une INSTRUCTION FOR: 

Elle initialise la valeur de N a 1, agissant ainsi comme la ligne 10 qui 
initialise N a 1, ensuite la ligne 110 s ' execute puis la ligne 120 qui 
est le bas de la boucle. 

© L' INSTRUCTION NEXT: 

Celle-ci stipule a l'ordinateur d'augmenter de 1 la valeur de la variable 
N a chaque passage de cette ligne et, tant que cette valeur ne depasse 
pas la limite prevue (ici 10), l'execution continue a la ligne qui suit 
immediatement celle de FOR- Des que la valeur depasse la limite, le pro- 
gramme ignore la ligne NEXT et passe a la ligne 130 ou il s'arrSte. 

La methode FOR-NEXT off re done des avantages indeniables en matiere de 
simplicity , de clarte et de facilite pour la construction d'un programme. 

Essayez done celui-ci: 

500 GR 

510 FOR I = TO 15 



No 



520 COLOR = I 

530 HLIN 0/ 39 AT I 

540 NEXT I 

550 END 

Facile n'est-ee pas? 

LE STEP 

Cette instruction utilisee avec un FOR _ NEXT est interessante a plus d ' un 

titre. 

Par exemple: 

500 GR 

505 COLOR = 4 

510 FOR I = TO 39 STEP 2 

530 HLIN 0, 39 AT I 

540 NEXT I 

550 END 

Vous constatez le resultat! 

Essayez en modifiant le chiffre qui suit STEP/ par exemple 4, 6,8 etc. 
La solution est que 1 ' instruction STEP (pas) fait avancer la boucle par 
"pas" de deux (ou tout autre chiffre jusqu'a 32767). 

Precedee d'un signe negatif (ex: STEP - 2) » elle peut meme faire executer 
des "pas" en arriere. 

Par exemple: 

510 FOR I = 39 TO STEP - 2 c'est-a-dire de la droite vers la gauche. 

N.B.: Par convention, toute boucle est considSree comme avancant par 
"pas" de 1, le STEP n'a done une utilite qua partir de 2 (sauf 
dans le cas du pas en arriere ou il est necessaire d'ecrire par 
exemple: FOR I = 39 TO STEP -1) • 

BOUCLES IMBRIQUEES : 

II existe une autre possibility dans 1 ' utilisation de 1 ' instruction 
FOR-NEXT- 

On peut egalement inserer dans une premiere boucle de nombreuses autres 
(en fait jusqu'a 16) . La seule regie imperative a respecter est que ces 
boucles ne doivent en aucun cas se croiser. Cela ne vous paralt pas clair? 

Par exemple regardez le programme suivant: 

10 FOR I = 1 TO 4 
20 FOR J = 1 TO 5 
30 PRINT I, J 
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40 NEXT J 
50 NEXT I 
60 END 

En faisant marcher le programme on se rend bien compte de ce qui se passe. 
Pendant que la variable I a une certaine valeur fixee, la variable J prend 
toutes les valeurs entre 1 et J. 

Maintenant etudions les programmes suivants: 



PROGRAMME 1 : 






NEW 




10 


GR 




20 


FOR C = 


1 TO 15 


30 


COLOR = 


C 


40 


FOR X = 


to 39 


50 


VLIN 0/ 


39 AT X 


60 


NEXT X 




70 


COLOR = 


c - 1 


80 


FOR Y = 


to 39 


90 


HLIN 0/ 


39 AT Y 


100 


NEXT Y 




110 


NEXT C 




120 


END 





ORGANIGRAMME DU PROGRAMME 1 : 

10 GR: initialisation de l'ecran, en mode graphique 

20 



C< 15 



C = 1 



BE 



COLOR = C 



I 



X = 



3 



40 



TRACE UNE LIGNE VERTICALE SUR TOUTE 




LA HAUTEUR A PARTIR DE L ' HORIZONTALE X. 




CETTE LIGNE A UNE COULEUR C. 




(C = NOIR, C = 15 BLANC) -^ (0 < C ^ 


15) 



X< 39 




50 



X > 39 



C = C 



I 



DESINCREMENT DE 

LA COULEUR 

70 



Y = 



3 



TRACE UNE LIGNE HORIZONTALE SUR TOUTE LA 
LARGEUR DE L'ECRAN, DE COULEUR C-l, A PARTIR 
DE LA GAUCHE JUSQU'A LA VERTICALE Y. 



Y< 39 





90 



100 



Y >39 



Notes 
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OCeci etait un exemple d'une boucle imbriquee a deux niveaux. En voici 
un autre: 

PROGRAMME 2 

NEW 

10 GR 

20 FOR Y = TO 30 STEP 10 

30 FOR X = TO 35 STEP 5 

40 COLOR = RND (16) 

50 FOR I = TO 9 

60 HLIN X, X + 1 AT Y + I 

70 NEXT I 

80 FOR D = 1 TO 100 

90 NEXT D 

100 NEXT X 

110 NEXT Y 

120 GOTO 10 

Ce dernier est a trois niveaux imbriques. Vous constatez en ligne 80 et 
90 la presence d'une boucle dite de "temporisation" . Essayez d'en modifier 
la grandeur (1 TO 2 50 ou 500 par exemple) et voyez ce qui arrive. 
Apprenez a bien l'utiliser, car cette boucle speciale est tres interes- 
sante (on voit qu'entre le FOR ••• TO ••• et le NEXT* il n 'Y a rien. 
Cette boucle fait done travailler l'ordinateur sans rien lui faire faire, 
ce qui paraitra comme un temps mort a 1 ' execution du programme). 

Maintenant un exemple de ce qu'il NE FAUT PAS FAIRE! 

NEW 

+ 10 FOR I = 10 TO 20 

20 PRINT I 

* 30 FOR J = 30 TO 40 

40 PRINT J 

> 50 NEXT I ) e'est la ou 

-> 60 NEXT J i 

70 END 



se tient l'erreur! II aurait fallu 
placer NEXT I apres NEXT J- 



L'ordinateur donnera le message d' erreur :###BAD NEXT ERR 

STOPPED AT 50 



/ 



ORGANISATION DU PROGRAMME 2 



f DEBUT J 



y = 



X = 



Y = Y + 10 



120 



GOTO 10 



Y<30 



20 



3 



20 



30 



ON TIRE LA COULEUR AU 
HASARD ENTRE ET 16 



40 



1=0 

— 5 



50 



TRACAGE D'UNE LIGNE HORI- 
ZONTALE ENTRE X ET Y + 4 , 
A LA VERTICALE Y + 1 



1 = 1 + 1 
I< 9 




Notes 



NEXT I 



BOUCLE DE TEMPORISATION 
RETARDE LE TRACAGE DU 
CARRE SUIVANT 



X = X + 5 



X< 30 




¥ > 3j£ 

NEXT Y 




80, 90 
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EXERCICE IX/1 

FOR ... NEXT . . , STEP 

Reprenez 1 ' exercice VI/1 et ajoutez une boucle de temporisation, de telle 
maniere qu'au lieu de ne pas attendre entre deux tirages de des, l'ordi- 
nateur laisse un petit laps de temps. 



1 - 10 PRINT RND (6) + RND (6) 

20 FOR A = TO 300 

30 NEXT A 

40 GOTO 10 



+ 2 



2 " 100 PRINT RND (6) + RND (6) + 2 

110 FOR B = 300 TO STEP "1 

120 NEXT B 

130 GOTO 100 



EXERCICE IX/2 

FOR ... NEXT 

Construisez trois programmes ecrivant les deux phrases: 
"MON ORDINATEUR PERD LE NORD" 
"MAIS NON. . . IL M'OBEIT" 
dans des ordres differents: 

1° - 3 fois la premiere et 3 fois la seconde. 
2° - 3 fois (1 fois la premiere et 3 fois la seconde) . 
3° - 3 fois (1 fois la premiere et 1 fois la seconde) . 

1° - 10 FOR A = 1 TO 3 

20 PRINT "MON ORDINATEUR PERD LE NORD" 

30 NEXT A 

40 PRINT 

50 FOR B = 1 TO 3 

60 PRINT "MAIS NON... IL M'OBEIT" 

70 NEXT B 

CMn 

END 



2° - a changer 


: 


30 % 


75 NEXT A 


15 PRINT 


3° - a changer: 


50 % 


70 % 


40 1 


Tapez un 


esc) 


L®) a 



(% = effacer) 



ESc) @)avant chaque execution de programmes. 



EXERCICE IX/3 

Ecrivez un programme qui compte des pieces de 10 centimes jusqu'a ce que 
la somme soit de 100 Francs, et qui montre en graphique un tas de pieces 
de 10 centimes, un tas de pieces de 1 franc et un tas de pieces de 10 
Francs . 

10 GR 

20 PRINT 

21 PRINT ii 10 F IF 0/10 F" 

22 PRINT 

23 PRINT "COMPTEUR DE MONNAIE (DE 0/10 F A 100 f) 11 

24 A = 
30 FOR DIX = 1 TO 10 
40 FOR UN = 1 TO 10 

r~50 FOR CENT = 1 TO 10 
51 COLOR = 1 

52 hlin 33/ 35 at (32 - cent * 2) 

60 FOR N = 1 TO 100 

61 NEXT N 

62 A = A + 10 
L — 70 NEXT CENT 

71 FOR N = 1 TO 500 

72 NEXT N 
80 COLOR = 










Notes 
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p81 


FOR N = 30 TO 12 STEP ~2 






82 


HLIN 33/ 35 AT N 




u 83 


NEXT N 




90 


COLOR = 3 




91 


HLIN 19, 23 AT (32 - UN * 2) 




•—92 


NEXT UN 




r93 
^94 


FOR N = 1 TO 500 




NEXT N 




100 


COLOR = 






-101 


FOR N = 30 TO 12 STEP ~2 






102 


HLIN 19, 23 AT N 




-103 


NEXT N 




110 


COLOR = 2 




111 


HLIN 3, 9 AT (32 - DIX* 2) 


■ Xli. 


NEXT DIX 


113 


PRINT "LA SOMME FAIT: "; A/100; m FRANCS 






120 


END 



U Ml Ml 
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O (Organigramme de ce programme page suivante) 



ORGAI\NGRAMME DE L'EXERCICE IX/3 



UN < 10 



91 




TRACE UNE PIECE DE 
1 F A LA VERTICALE 
32-UN*2 ENTRE LA 
COLONNE 19 ET 2 3 



UN > 10 



I 



ECRIRE EN 


BAS DE 


L'ECRAN 


(A 


2AUSE DU GR) LES 


TEXTES 


DES 


LIGNES 21 ET 


23 


SEPA- 


RES 


D'UNE 


LIGNE 







A = (INITIALISATION DE 
LA SOMME EN CENTIMES ) 



COLOR = 3 



90 



BOUCLE DE 
TEMPORISATION 



T 



N <l£ 




93, 94 



DIX = 1 



T^ 



UN = 1 



I 



24 



30 



40 



CENT = 1 




50 


, 


« 


' ' 


51 


COLOR = 1 


' 


■ 
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1 



IM 



COLOR = 



101 



N = 1 



S 



102 



TRACE 


UN 


TRAIT 


NOIR 


5UR 


LA N° 


PIECE 


DE 


1 F. 



TRACE UN TRAIT 
NOIR HORIZONTAL 
SUR L' EMPLACEMENT 
DE LA Neme PIECE 
DE 10 CENTIMES 



^~ 



N = 1 




COLOR = (NOIR) 



BOUCLE DE 
TEMPORISATION 



71, 72 



11C 



TRACE UNE PIECE DE 
10 F EN HORIZONTAL 
DE 3 A 9 A LA 
VERTICALS 31-DIX 
* 2 



52 



TRACE UNE PIECE DE 10 
CENTIMES EN HORIZONTAL A 
PART I R DE LA COLONNE 3 3 
JUSQU'A LA COLONNE 35 A LA 
VERTICALE 32 - 2 # CENT 



60, 61 



BOUCLE DE TEMPORISATION 



T 



62 



A = A + 10 : LA SOMME 
SOMME PRECEDENTE + 10 
CENTIMES 




111 



CENT < If 



DIX ^ 10 




113 



POUR AVOIR LA 
SOMME EN CENTIMES 
A = A/ 100 



113 



I 



ECRAN A 






CHAPITRE 10 

• COMMENT SE PLACER SUR L'ECRAN 

(TABULATION, PONCTUATION) 

Nous allons reprendre l'une de nos toutes premieres demonstrations. 

Tapez : 

NEW 
10 PRINT "BONJOUR" 
20 GOTO 10 

RUN 

Maintenant tapez le programme suivant: 

NEW 
10 FOR I = 1 TO 10 
20 PRINT "BONJOUR" , 
30 NEXT I 
40 FOR I = 1 TO 10 
50 PRINT "BONJOUR"; 
60 NEXT I 
70 END 

Vous voyez gu'en ligne 20 le simple fait de rajouter une virgule apres 
le "BONJOUR 11 fait gue vous obtiendrez plusieurs "BONJOUR 11 a egale distance 
les uns des autres. En general le nombre d'espaces laisses entre les 
textes a afficher est fonction de la longueur du texte entre guillemets. 
A la ligne 50 le fait de mettre un point virgule apres "BONJOUR" genere 
un nouveau format d'affichage ou il n'y a aucun espacement dans le texte 
a afficher. 

Vous pouvez naturellement faire de meme avec n ' importe guelle inscrip- 
tion. . . 

Essayez par vous-meme! 

Vous pouvez egalement utiliser les virgules ou les points-virgules a 
l'interieur d'une instruction 

Par exemple entrez: 



Notes 





NEW 




10 


JEU = 4 




20 


AVANTAGE = 


1 


30 


PRINT JEU/ 


AVANTAGE 



40 END 
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;JEU, AVANTAGE 

;jeu;" "; a vantage 



i 

Et pour ameliorer encore la clarte: 

30 PRINT »LES RAPPORTS JEU ET AVANTAGE SONT 
Ou mieux encore: 

30 PRINT "LES RAPPORTS JEU ET AVANTAGE SONT 
Mais le plus simple serait: 

30 PRINT "JEU" ; JEU ; "AVANTAGE" ; AVANTAGE 

O Recapitulons : - Aucun signe apres le texte a afficher — - saut de ligne. 

- Une virgule apres le texte a afficher — - le prochain 
affichage se fera sur la meme ligne mais espace du 
dernier. 

- Un point-virgule apres le texte a afficher — ► le prochain 
affichage se fera sur la meme ligne mais colle au dernier. 



TABULATION 

Supposons que vous vouliez afficher le mot ici a la dixieme colonne 

(c'est-a-dire au ler quart de l'ecran). Vous pourriez faire: 
v ^ v,^. l. u uj-j-c au. ici qucu. u u« j. euidii) . vous pourriez raire: 

PRINT" ICI" en laissant done 10 "blancs" entre le premier guillemet 

et Id .,, mais 1 'utilisation de 1 ' instruction JAB est bien preferable. 



Tapez par exemple: 
10 TAB -'10 



tA&-¥ s^f lM6p@lo^\f 



20 



PRINT "ICI" 



cela aura exactement le meme effet! 



En comkinant TAB avec la boucle FOR , , . NEXT, vous pouvez programmer 
des petites choses amusantes. 

Par exemple: 

100 FOR X = 1 TO 24 
110 H TAB X 
120 PRINT "/" 
130 NEXT X 
140 END 

©Vous pouvez egalement TABuler en vertical, en utilisant 1' instruction 



VTAB 



Par exemple: 
200 FOR X - 1 TO 24 
210 FOR Y = 1 TO X 
220 TAB X 

230 VTAB Y 



t, cx **. it <& 
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250 NEXT Y 
2-60 NEXT X 

270 goto 200 

Avant de taper RUN/ essayez de vous figurer quel sera le resultat. 

O VTAB peut etre utilise pour une action immediate (sans numerotation de 
chiffre) alors que JAB doit toujours etre utilise au sein d'un programme. 
Bien que JAB et VTAB ressemblent quelque peu aux instructions graphiques 
ii PLOT 11 / il existe une difference. En effet, les 40 colonnes disponibles 
de JAB sont numerotees de 1 a 40, alors que pour PLOT elles le sont de 
-0 a 39 (la disponibilite est identique, mais c'est seulement une conven- 
tion). En outre, etant donnee la dimension des caracteres, il n'y a que 
24 lignes de possibility d'ecriture, d'ou les limites de 1 a 24. 

Pour 1 ' instruction VTAB» un zero ou un chiffre depassant la gamme de 
TAB ou VTAB donnerait le message *♦# RANGE ERR 

Un nombre plus grand que 255 ou un nombre negatif (-40) donnerait le 
message ***>255 ERR 

La valeur maximale de JAB etant de 255/ on peut ainsi l'utiliser au-dela 
de la largeur de l'ecran. 

Pour en observer 1' effet, essayez le programme suivant: 

NEW 
10 FOR I = 1 TO 255 
20 TAB_ I 
30 PRINT I 
40 NEXT I 
50 END 

RUN 



Notes 
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EXEHC/CEX/f 

Reprenez l'exercice VI/1 et imprimez cette fois les valeurs a la suite, 
separees cl'un espace. 

Puis imprimez les valeurs en forme d'un tableau de 5 colonnes. 



10 PRINT " 
20 GOTO 10 



; RND (6) + RND (6) + 2 



100 PRINT RND (6) + RND (6) + 2, 
110 GOTO 100 

EXERCICE X/2 

Imprimez les renseignements suivants sous forme de tableau: 

1 - Titre: Paris-Pau 

2 - Depart Paris: 8h00, I8h00, 22hOO 

3 - Arrivee Pau: I4h30, Ohio, 6h30 

4 - Classe: 1/2, 1/2, 1/2 



10 


VTAB 5 


20 


TAB 10 


30 


PRINT "PARIS-PAU" 


40 


VTAB 8 


50 


PRINT "DEPART PARIS", "ARRIVEE PAU"/ "CLASSE 


60 


VTAB 10 


70 


PRINT " 8 H 00" , " 14 H 30" , " 1/2" 


80 


PRINT " 18 H 00" , " H 10" , " 1/2" 


90 


PRINT " 22 H 00" , " 6 H 30" , " 1/2" 



Tapez un ESC J <9)avant chaque execution du programme! 



CHAPITRE 11 

INTRODUCTION DES DONNEES <hipud 



Si vous desirez calculer la moyenne de plusieurs donnees, et si elles 
vous sont connues, vous pouvez entrer le programme suivant: 

NEW 
10 A = 60 
20 B = 40 
30 C = 50 

40 D = 70 

50 e = 105 

60 x=(a+b+c+d+ e)/5 

70 PRINT X 
80 END 

RUN 

Mais supposons que vous ne connaissiez pas les valeurs des variables au 
moment de la construction du programme. Vous pouvez alors utiliser une 
instruction extremement precieuse: INPUT- 

Exemple: 

100 INPUT A, B, C, D, E 
110 X = (A + B + C + D + E)/5 
120 PRINT X 
130 END 
RUN 

Vous pouvez egalement modifier le programme en changeant la ligne 130 en 
130 GOTO 100 i ce qui vous permettra, sans utiliser la commande RUN a 
chaque fois, d' entrer autant de valeurs differentes que vous le souhaitez 
pour les variables considerees. 

©Examinons les possibilites de INPUT ••• 

Vous avez remarque que les variables entries apres INPUT sont separees 
par une virgule. Cela est indispensable si vous desirez entrer plusieurs 
donnees. Pour une seule variable, par exemple A, 1 ' instruction serait 

simplement INPUT A- 

Des que vous aurez tape RUN» l'ecran affichera devant le curseur cli- 
gnotant un point d' interrogation et l'ordinateur attendra que vous tapiez 
la ou les donnees. Attention, vous ne devez entrer que le nombre exact 



Notes 
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de donn§es figurant dans le programme. 

Exemples: 

Si INPUT A, B, C, D, E = entrez 5 donnees. 

Si INPUT X0, ALPHA : entrez 2 donnees. 

Vous pouvez egalement afficher une explication avant 1' introduction des 

donnees par le clavier. 

Changez ainsi la ligne 100 du programme ci-dessus: 

100 INPUT "ENTREZ LES DONNEES", A, B, C, D, E 

Afficher la designation des variables vous evitera de commettre des 
erreurs, ce qui peut arriver dans un programme long contenant plusieurs 
INPUT- 

O II y a une autre facon d'introduire des donnees en les accompagnant d'un 
texte indiquant la designation des variables. 

Tapez le programme suivant: 

10 PRINT "ENTREZ LES DONNEES" 
20 INPUT A/ B, C, D 
30 END 

Dans le cas present vous voyez que le point d' interrogation se deplace 
au debut de la ligne qui suit celle ou le texte HENTREZ LES DONNEES" est 
ecrit. 

Si vous voulez que le point d' interrogation se place sur la raeme ligne 
que le texte HENTREZ LES DONNEES" t il suf fit pour cela de rajouter une 
virgule ou bien un point-virgule a la fin de la ligne 10 (apres le deuxi- 
eme guillemet) . 

Si vous mettez une virgule le point d' interrogation sera espace du texte. 

Si vous mettez un point-virgule le point d' interrogation sera colle au 
texte. 



EXERCICEXI 

INPUT 



Notes 



VERTICALE" , L 



Vous auriez pu ecrire le programme suivant: 

10 GR 

20 PRINT "TRACE DE LIGNES" 

25 PRINT 

30 INPUT "ENTREZ 1 POUR UNE LIGNE HORIZONTALE OU 2 POUR UNE LIGNE 

40 PRINT 

50 INPUT "ENTREZ LA COULEUR" , C 

60 PRINT 

70 INPUT "POSITION DU DEBUT DE LIGNE", DE 

80 PRINT 

90 INPUT "POSITION DE FIN DE LIGNE", F 

100 PRINT 

110 INPUT "POSITION X OU Y" , P 

120 COLOR = C 

130 IF L = 1 THEN 160 

140 VLIN DE, F AT P 

150 GOTO 30 

160 HLIN DE, F AT P 

170 GOTO 30 



Tapez un ESC ) (p)avant chaque execution de ce programme. 



m m m i) m m ru f n m m 11 m m m m in m m m if m if .f x a. 



IJkiJdUiilJUAJlilJU'klJllliULUlIJlUiU'JU'^JlJJlJLllilUlaiUU 



ORGANIGRAMME DE L'EXERCICE XI 





"TRACE DE LIGNES" 


10, 25 






■* 




i ' 






INTRODUIRE 

L, C, DE, F, P 


30 
110 




I 






COLOR = C 
DEFINITION DE LA 
COULEUR UTILISEE 


120 


NON 


<^"^ T. — 1 ^^^ 


OUI 


A 


140 , 


' 




^130 


w 160 




TRACE UNE LIGNE VERTICALE 
ENTRE LES LIGNES DE , F A 
L' HORIZONTALS P 




TRACE UNE LIGNE HORIZONTA-. 
LE ENTRE LES COLONNES DE , 
F A LA VERTICALE P 




















*. 


'fc 


GOTO 30 























CHAPITRE 12 

LES VARIABLES ALPHANUMERIOUES. 
LEUR DIMENSION 



Notes 



Jusqu'ici, nous nous sommes occupes de graphiques et de chiffres. Mais 
l'ordinateur peut egalement traiter les lettres et les symboles. Au lieu 
de les manipuler un par un, conraie les valeurs numeriques des variables, 
l'ordinateur en traite toute une serie a la fois. Ceci ne vous etonnera 
d'ailleurs pas, puisque les mots et les phrases que nous utilisons dans 
notre langage sont des "series" de lettres. 

Les series appelees "SERIES ALPHANUMERIQUES" ont des noms qui suivent 
les memes regies que les variables, a ceci pres qu'elles sont tou jours 
suivies du signe "&" comme les quelques exemples ci-apres: 

nom£ 

PHRASE^ 

Chaque serie peut contenir plusieurs caracteres. II faut, avant d'utili- 
ser son nom, indiquer a l'ordinateur le nombre maximum de caracteres 
qu'elle comportera. 

O Supposons que vous sachiez que vous aurez besoin d'environ 30 caracteres 
dans une serie appelee NOMf>- Vous devez 1 ' indiquer a l'ordinateur par 
1' instruction dim (avec ligne numerotee, si celle-ci fait partie d'un 
programme) et qui s'ecrira dans le cas present 10 dim NOMj£ (30)- 

Vous avez maintenant le droit d'ecrire: 

20 NOM)£ = "UN ROI SANS DIVERTISSEMENT" 

Notez que les caracteres qui composent cette serie doivent etre places 
entre guillemets. Ce sont ces guillemets, ainsi que le signe ^ a la fin 
de leur nom, qui permettent de reconnaitre aisement les series alphanu- 
meriques. 

L' instruction suivante: 

30 PRINT NOM£> affichera le contenu de la serie NOM^ (en 1 'occurrence, le 
titre d'un roman de J. GIONO) . Par ailleurs, si au cours de votre program- 
me vous avez besoin de faire appel plusieurs fois a une chaine de carac- 
teres assez longue, vous pouvez la stocker en memoire sous la forme de 
plusieurs variables courtes. 



Exemple: 




2 DIM A)£ 


( 8) 


3 DIM BS 


(10) 


4 DIM C^ 


(16) 
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10 hi = "L'ORDINAii 
20 Big = "TEUR EST U" 

30 d = »N OUTIL PRECIEUX" 

40 PRINT A^ ; hi ; C^ 

50 END 

REMARQUE IMPORTANTE : 

11 ne peut y avoir plus de 255 caracteres dans une chalne, et comme 

d' habitude vous ne pouvez entrer qu'une centaine de caracteres dans une 
meme instruction. 

A ce sujet, attention: tous les blancs d'espace comptent comme des carac- 
teres ! 

Entrez maintenant, en mode direct, les commandes suivantes: 

DIM MAXj£ (255) 

MAX^ = I'N'lMPORTE QUOI D'UNE CERTAINE LONGUEUR QUE VOUS NE PUISSIEZ 

COMPTER D'UN COUP D'OEIL 11 

Combien de lettres sont stockees dans MAX^? ^ e vous donnez pas la peine 

de les compter. II existe une fonction qui vous donnera ce renseignement. 

II s'agit de: 

©PRINT LEN (MAXj£) 

soit en 1 ' occurrence: 84 (blancs compris, rappelez-vous ! ) 

Pour obtenir une partie d'une chaine donnee , il suffit d'indiquer les 
positions numeriques du premier et du dernier caractere. Ainsi le segment 
de MAXfj compris entre le caractere numero A et la caractere numero B 
s'exprime max£ (A, B) • 
Par exemple: 

PRINT NOMJ^ (13/26) affichera les caracteres demandes a savoir ce qui se 
tient entre les 13emes et 26emes lettres (incluses) de la serie (ici: 
DIVERTISSEMENTS) 

S'il s'agit d'un segment dont la fin coincide avec la fin de la chaine, 
on peut omettre la deuxieme valeur. Done tous les caracteres a partir du 
Neme jusqu'a la fin seront representes par 1' expression: 

MAX£ (N) 



REMARQUE : 

Au lieu de taper 



Vous pouvez ecrire: 



10 DIM A^ (10) 
20 DIM BfS (20) 
10 DIM ki (10) 



B*S (20) 



Notes 
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Voici un programme amusant ou la notion de l'utilite des series aplha- 
numerigues est mise en aplication: 

NEW 

200 DIM ALPHABET* (100), X* (30) 

210 ALPHABET* = "ABCDEFGHI JKLMNOPQRSTUVWXYZ" 

220 PRINT "TAPEZ i UN CHIFFRE ENTRE A ET 26 ET JE» 

222 PRINT "VOUS DIRAIS QUELLE LETTRE SE SITUE A" 

224 INPUT "CETTE POSITION DE L'ALPHABET !", P 

230 IF P > LEN (ALPHABET^) OR P < 1 THEN 220 

240 PRINT ALPHABET* (p, P) ; " " ; "EST LA LETTRE N° " ; P ; 

"DANS L'ALPHABET" 

250 PRINT 

300 PRINT "TAPEZ UNE LETTRE ET JE VOUS DIRAIS QUEL" 

305 INPUT "EST SON N° DANS L'ALPHABET ! " , X* 

310 FOR I = 1 TO LEN (ALPHABET*) 

320 IF ALPHABETS 0, i) = X* THEN 500 

330 NEXT I 

340 PRINT "CECI N'EST SUREMENT PAS UNE LETTRE !" 

350 GOTO 300 

500 PRINT X* ; I" "I ; "EST LE N° » ; I ; "DANS L'ALPHABET" 

510 PRINT 

520 GOTO 210 

Vous pouvez remplacer la ligne 520 par END- Mais ceci vous obligera a 
taper run a chague fois! Dans le cas present, pour sortir du programme 
tapez |CTRL| (vous vous souvenez?) . 
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II est recommande de DIM ensi °nner la serie avec une valeur de DIM un peu 
plus elevee qu'il ne paralt necessaire afin de laisser une certaine marge. 
En outre, comme dans les lignes 230 et 310, il est preferable d'utiliser 
la fonction LEN (pour longueur) a la place d'un nombre donne pour que 
le programme puisse fonctionner si on modifie la serie alphanumerique . 

Par exemple: si l'on remplace la ligne 210 par: ALPHABET^ = "0123456789" 
le programme s'executera toujours. Mors que si vous aviez utilise 26 au 
lieu de LEN (ALPHABET^) a la ligne 310 • vous obtenez alors le message: 

***STRING ERR 

Remarquez la maniere dont ce programme utilise une boucle pour parcourir 
la serie alphanumerique, une position a la fois, c'est-a-dire en pas a 
pas. Ce procede est d'une utilisation facile et tres courante. 
Ce programme vous montre aussi qu'il est possible de dimensionner plus 
d'une chaine a la fois simplement en separant les elements par une vir- 
gllle. N8t8z all§§i 1§§ "felines" entire guillemets (lignes §0$ et U% . 
D'apres vous, quel serait le resultat s'ils etaient omis? 

ENCHAINEMENT 

II est possible d'ajouter une deuxieme chaine au bout d'une serie alpha- 
numerique existante, si la valeur DIM initiale est suf f isamment importan- 
te pour conten:r les deux. Comme nous l'avons vu, 1 ' instruction 100 DIM 
AS (75) alloue jusqu'a 75 caracteres a Af>- La longueur reelle de $, est 
LEN (A^). 

Par exemple, : i vous tapez: 
100 DIM A^ (75) 
200 A^ = "XYZ" 
210 PRINT LEN (A^) 
500 END 
RUN 
le resultat affiche sera 3- 

ATTENTION quand votre texte contient des espaces, ceux-ci sont comptes 
dans la longueur de la chaine de caracteres. 

O Pour ajouter un caractere au bout de /\g , tapez: 

220 A^ (4) = "A" 

Ajoutez cette instruction au programme ci-dessus, puis entrez: 

230 PRINT A^, LEN (h&) 
RUN 

A^ contient-il ,bien maintenant XYZA? Ensuite, retapez la ligne 220 comme 
suit: 



Notes 



220 ki (4) = "ABCDE" 

RUM 

RUN 
Le resultat vous surprend-il? 
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Dans ce systeme d'enchainement, A^ (A) represente le segment de la serie 
alphanumerique qui commence au 4eme element. Ainsi, dans la derniere 
version de ce programme, A2> (4) est devenu la lettre A/ A$ (5) est devenu 
B et ainsi de suite... Vous venez done d'enchainer la serie ABCDE a celle 
de XYZ- 
Entrez maintenant ce nouveau programme: 

NEW 
100 DIM UN^ (100), DEUX^ (100) 

110 INPUT "TAPEZ LA MOITIE D'UNE PHRASE QUELCONQUE" , UNj£ 
120 INPUT "ET ENSUITE LA DEUXIEME MOITIE... 11 , DEUXig 

Supposons que vous souhaitiez enchainer UN^ et DEUX^* Vous etes obliges 
de connaitre la longueur de la premiere chaine. C'est pour cela que vous 
allez utiliser |_EN dans 1 ' instruction suivante: 

130 UN# (LEN (UN£>) + 1) = DEUXJ2) (remarquez que + est le seul operateur 

utilisable avec les variables alphanu- 
merique s) 

car vous savez qu'il faudra placer la deuxieme serie a un element au-dela 

de la premiere . Puisque |_£[s| (uN^) indique la fin de UN^f alorsLEN (UN^) 

+ 1 represente 1 ' emplacement du debut de DEUX^- 

Pour que ce programme s 1 execute, tapez: 

140 PRINT UN£ 

150 PRINT 

160 PRINT 

170 GOTO 110 

et c'est ainsi que 1 ' on pratique. 



1 ' enchainement . 



O On peut substituer une serie alphanumerique a une autre au moyen d'une 
instruction telle que: 

Y.i = ALPHABET^ °u le contenu de ALPHABET^ est transfere en xfs 2 condition, 
bien entendu, que la dimension de x£> soit suffisante. Si ce n'est pas le 
cas, le message: 

STRL OVFL ERR serait affiche, indiquant tout simplement que la longueur 
de la serie, alphanumerique a depasse la DIMension fixee. 

N.B.: par convention, un segment partiel d'une chaine ne peut se placer 
a gauche d'une instruction de substitution. Ainsi: 

Xf> (3,5) = "XYZ 11 est illegal alors que: 

Xf> = ALPHABET^ (12,24) est parfaitement correct. 

Voici maintenant un programme qui genere des mots aleatoires. La frequence 
du choix d'une lettre depend du nombre de fois qu'elle est inscrite dans 
ALPHABET^- 



Notes 



PROGRAMME DE CONJUGAISON DES VERBES DU 1ER GROUPE 




10 


DIM ki (50) 




20 


DIM SUJET^ (24) 




25 


DIM PRESENT^ (18) 




30 


DIM IMPARFAIT* (30) 




w 


DIM FUTURE (30) 




50 


PRESENT^ = I" E ES E ONSEZ ENT " 




60 


IMPARFAIT^ = "AIS AIS AIT IONS IEZ ALENT" 




70 


FUTUR^ = » ERA I ERAS ERA ERONS REZ ERONTn 




80 


PRINT UDONNEZ-MOI UN VERBE DU 1° GROUPE" 




81 


PRINT D'UN NOMBRE DE LETTRES INFERIEUR A 10 




85 


SUJETjg = ilJE TU IL NOUS VOUS I LS " 




90 


INPUT A^ 




91 


IF LEN (A£) >10 THEN 80 




95 


PRINT 




96 


PRINT "CONJUGAISON DU VERBE" ; ki (1/ LEN (a£)) 




97 


r K 1 N 1 i i i i i i i i i i i i i i i ■ i i i ■ " / 




98 


FOR I = 1 TO LEN (a£) ~1 




99 


PRINT ii.ii; 




100 


NEXT I 




101 


PRINT II." 




102 


FOR I = 1 TO 500 




103 


NEXT I 




105 


PRINT 




110 


PRINT "PRESENT"; 




111 


TAB 20 




112 


PRINT "FUTUR" 




113 


PRINT ii ii; 




m 


TAB 20 




115 


PRINT " " 




116 


PRINT 




120 


FOR I = TO 105 




125 


print sujet£ (4 • i + 1, 4 * + D); " "; 




130 


PRINT A^ (1, LEN (A£) ~2) i 




135 


PRINT PRESENT^ (3*1+1/3* (i + 1)); 




136 


TAB 20 
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137 PRINT SUJET^ M * I + 1, 4 * + D); " 

138 PRINT hi (1, LEN(Ai^) -2); 

139 PRINT FUTURE (5 * I + 1, 5 * ( I + 1) ) 

150 NEXT I 

155 PRINT 

160 PRINT "IMPARFAIT" 

170 PRINT " " 

180 PRINT 

190 FOR I = TO 5 

200 PRINT SUJET^ (4* I + 1, 4 * (i + 1)); " ' 

210 PRINT h& (1, LEN (Arf) -2); 

220 PRINT IMPARFAIT^ (5 * I + 1, 5 * ( I + 1) ) 

230 NEXT I - 

1000 END 



ORGANIGRAMME DU PROGRAMME PRECEDENT 



INITIALISATION DES MATRI- 
CES DES TERMINAISONS. 
SUJET: JE TU IL NOUS VOUS 
ILS 



INTRODUIRE LE VERBE A# 



OUI 



1 = 1 + 1 



NON ^ 



< 



I 



NOMBRE DE LETTRES >10 



L 




SOUS-POGRAMME DE 
PRESENTATION 



I 



95, 
116 



1 = 



s: 



ECRIRE LE SUJET, PUIS LE 
VERBE -(ER) , PUIS LA 
TERMINAISON 



I 



MEME CHOSE POUR LE FUTUR, 
A DROITE DE L ' ECRAN 




I = 



MEME TRAVAIL POUR 
L' IMPARFAIT 



c 



FIN 



Notes 
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EXERCICE XII/1 

dim hi, hi 

Ecrivez un programme qui obtient deux variables j\& et B2> ■ 

Faites calculer la longueur de h£, celle de r£» et la somme de ces deux 

longueurs. 

Puis imprimez les resultats, et apres le contenu de b£ & la suite du 

contenu de AJ?> • 

10 DIM AJ£ (100) 

20 DIM b£ (50) 

30 INPUT m 1er mot : "/ Aj£ 

40 input "2eme mot : " , b£ 

50 A = LEN (a£) 

60 B = LEN (b£) 

70 s = A + E 

80 print "a£: "; a; " lettres" 

90 print "b£; "; B; "LETTRES" 

100 print "aj£ + b£ = ";s ; "lettres" 

110 PRINT 

120 Af$ (A + 1) = Bi£ 

130 PRINT A^ 

140 END 

EXERCICE XII/2 

hi (N/ n) 

Une personne entre un mot de 5 lettres dans 1 ' ordinateur . 
Une deuxieme personne essaie de trouver ce mot quelconque de 5 lettres 
(pas de lettre doublee) . L 1 ordinateur compare le mot a chercher avec 
1' autre mot. Apres il indique le nombre de lettres correctes , puis deman- 
de si on a une idee du mot cherche . Sinon, on essaie un autre mot^et 
ainsi de suite, le jeu se termine quand on a trouve le mot cherche. 

Essayez d'ecrire un programme qui corresponde a ce jeu! 

10 DIM A£ (5) 

20 DIM B£ (5) 

30 INPUT "MOT A CHERCHER 11 , kt 

40 END 

50 INPUT "O.K. VOTRE MOT"/ b£ 



JH U% ^ , ^ ~ P,M (/ 



60 FOR I = 1 TO 4 

70 FOR J = I + 1 TO 5 

80 IF l\£ (l,l) = hi (J,J) THEN 30 

90 IF B)£ (l;l) = Bj£ (j,j) THEN 50 

100 NEXT J 

110 NEXT I 

120 Z = 

130 FOR I = 1 TO 5 

140 FOR J = 1 TO 5 

150 IF ki (l,l) = b£ (j,j) THEN Z = Z + 1 

160 NEXT J 

170 NEXT I 

180 PRINT "NOMBRE DE LETTRES CORRECTES";Z 

190 IF A^ / B^ THEN 50 

200 PRINT 

210 PRINT "B R A V 0" 

220 END 

Apres avoir effectue le RUN' entrez votre mot. 

II faut que l'ecran soit efface avant que 1 ' on commence a chercher le 
mot. C'est i|0 END qui en donne la possibilite. Appuyez sur ESCj et @ J; 
apres l'effacement on continue avec GOTO 50- 

Voir au chapitre XIV pour une autre possibilite (CALL ~936) • 



ORGANIGRAMME 



( DEBUT J 



INTRODUIRE LE MOT 
A RECHERCHER 



a 



30 



INTRODUIRE LE MOT 
PROPOSE 



Not«$ 
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NON 



NON 



1 = 1 



:s 



60 




J = I + 1 

— M 



I" LETTRE DE A$ 
J° LETTRE DE A# 




ON VA DONC LE 
RECHARGER 



I 



ON A TROUVE UNE 
LETTRE SE REJETANT 
DEUX FOIS DANS LE 
MOT A RECHERCHER 




1 



1° LETTRE DE B# = 
J° LETTRE DE B# 



J = J + 1 




OUI 



ERREUR 



1 = 1 + 1 



NON 




1 = 4 




LES DEUX MOTS SONT-IL 
EGAUX ? 



IMPRIMER 
BRAVO 




NON 



OUI 



1 = 1 



^ 



OUI 



IMPRIMER Z 




Z = Z + 1 




OUI 



1° LETTRE DE Ag 
J° LETTRE DE B# 



NON 




NON 



OUI 




-»<I = 5 



EXERCICE XII/3 

Une personne entre une phrase quelconque dans 1 'ordinateur . 

Une deuxieme personne essaie de trouver cette phrase. Aide: affichage de 
la phrase en remplacant les lettres par des points, avec un espace entre 
les mots. 

Le jeu se termine quand on a trouve la phrase correcte. 

Essayez d'ecrire un programme qui corresponde a ce jeu! 



Notes 



*10 


call -936 






20 


DIM A* (100), 


B* (100) 




30 


INPUT A^ 






m 


call -936 






50 


A = LEN (A^) 






60 


FOR B = 1 TO 


A 




70 


IF hi (B, B) 


= 'I n THEN 


100 


80 


PRINT H . "; 






90 


GOTO 110 






100 


PRINT ii I"; 






110 


NEXT B 






120 


TAB 1 






130 


VTAB 1 






140 


INPUT B^ 






150 


FOR B = 1 TO 


A 




160 


IF A^ (B/ B) 


+ B)£ (B, B) 


THEN 180 


170 


PRINT ki (B, 


b) ; 




171 


GOTO 190 






180 


PRINT n "; 






190 


NEXT B 






200 


PRINT 






210 


TAB 1 






220 


IF hi = B^ THEN 240 




230 


GOTO 140 






240 


PRINT 






250 


PRINT HBRAVO 


- VOUS AVEZ 


TROUVE" 


260 


END 







*ft Voir chapitre XIV pour explication de cette instruction 
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CHAPITRE 13 

LES REGISTRES. 

COMMENT LES DIMENSIONNER 

LA NOTION DE MEMOIRE, COMMENT LA TRANSFERER 

Les registres vous offrent de telles possibilities pour la programmation 
qu'ils valent largement 1' effort qu'il faut consacrer a leur etude. 

lis se distinguent des series alphanumeriques auxquelles, par ailleurs, 
ils ressemblent beaucoup. lis sont constitues de chiffres (consideres 
comme valeurs numeriques) et non de lettres et de chiffres (consideres 
comme des caracteres) . Pour creer un registre, l'on se sert d'une instruc- 
tion DIM comme pour les series alphanumeriques. 

DIM A (400) 

A la difference des series vues precedemment, il n'y a aucune limite 
superieure (a part celle de la capacite de memoire de votre ordinateur) 
pour les registres. II faut simplement se rappeler que plus le programme 
est long, moins il y a de place memoire pour les registres et vice versa. 

L' instruction DIM ci-dessus, nous a reserve 4(21 nouvelles variables, qui 
se comportent exactement comme celles que vous connaissez deja. Elles 
sont: 

A (0) 

A (1) 

A (2) 

A (3) et ainsi de suite jusqu'a a (400) (prononcez A de 1, A de 2, etc..) 

Comme le role de ces variables est identique a celui de n'importe quelle 
autre variable, 1 ' instruction: 

A (34) = 45 + A (192) est done parf aitement correcte. 

Voici une application interessante qui illustre l'emploi des registres. 
II s'agit d'un programme qui identifie tous les nombres premiers (e'est- 
a-dire les nombres qui ne sont divisibles que par 1 et eux-memes) a partir 
de 2 (l, par convention, n'gtant pas considers comme un nombre premier). 

Limite de 1 ' ordinateur : 4096 pour 4 K, 16384 pour 16 K, 32767 pour 32 K. 

OL'idee generale est la suivante: 

Le programme examinera chaque chiffre (appel§ EST-CE, puisqu'on demande: 
EST-CE un nombre ler?) pour voir s ' il peut etre divise par un chiffre 
autre que lui-m§me. Si oui, EST-CE passera au chiffre suivant, sinon la 
valeur EST-CE sera imprimee. 

Votre micro-ordinateur ITT 2020 dispose d'un moyen excellent pour deter- 
miner si EST-CE est divisible par ESSAI: l'operateur MOD. 



Si EST-CE MOD ESSAI est egal a 0, alors ESSAI est contenu dans EST-CE 
un nombre entier de fois. 

NEW 

10 PRINT 2 

20 FOR ESTCE = 3 TO 4096 

30 FOR ESSAI = 2 TO ESTCE - 1 

40 IF ESTCE MOD ESSAI = THEN 70 

50 NEXT ESSAI 

60 PRINT ESTCE 

70 NEXT ESTCE 

80 END 

Voici deux questions concernant ce programme auxquelles vous pourrez 
repondre facilement si vous avez correctement interprets les explications 
precedentes: 

- pourquoi la boucle de la ligne 20 demarre-t-elle au nombre 3 et non 
au nombre 2? 

- pourquoi la boucle de la ligne 30 a-t-elle une limite superieure a 
ESTCE -1? 

Cependant, le programme ci-dessus sera terriblement lent! Nous pouvons 
facilement doubler sa Vitesse d' execution en changeant ainsi la ligne 20: 

20 FOR ESTCE = 3 TO 4096 STEP 2 

ce qui permet de "sauter" les nombres pairs qui (a 1' exception de 2) ne 
sont jamais "premiers", puisqu'ils peuvent tous §tre divises par 2. La 
prochaine amelioration se place dans la seconde boucle. 

Pour le moment, nous essayons de diviser ESTCE par chaque nombre plus 
petit que lui-meme. 

Cela n'est pas necessaire! En fait, nous n'avons besoin que d'essayer de 
le diviser par des nombres premiers. 

Done, si nous "conservons" tous les premiers que nous calculons, nous 
aurons seulement a diviser par ceux-ci et la Vitesse d" execution du pro- 
gramme sera considerablement augmentee. 

Et e'est la que nous avons besoin d'un registre (que nous allons appeler 
PREMIER) pour "conserver" tous les premiers que le programme va trouver. 

©Entrez ce nouveau programme: 
NEW 

REM PROGRAMME POUR TROUVER DES NOMBRES PREMIERS 
REM FAISONS DE LA PLACE POUR CES ENTIERS 
DIM PREMIER (800) 



Notes 



10 

20 

30 
40 



REM UTILISONS LE REGISTRE "HAUT" POUR CONSERVER TRACE DU DERNIER 
"PREMIER" TROUVE 
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50 HAUT = 1 

60 REM PLACONS LE PREMIER NOMBRE "PREMIER" 

70 PREMIER (HAUT) = 3 

80 REM BOUCLE PRINCIPALE POUR RECHERCHE DES ENTIERS POSSIBLES 

90 FOR ESTCE = 3 TO 4096 STEP 2 

100 REM RECHERCHEZ PARMI LES "PREMIERS" DEJA CONSERVES, ET DIVISEZ"LES 
PAR CHACUN D'ENTRE EUX 

110 FOR RESERVE = 1 TO HAUT 

120 IF ESTCE MOD PREMIER (RESERVE) = THEN 210 

130 NEXT RESERVE 

140 REM SI LE PROGRAMME PASSE A CETTE LIGNE, c'EST QUE ESTCE A ETE 

DIVISE PAR TOUS LES PREMIERS ET N'ETAIT PAS DIVISIBLE UNIFORMEMENT 
PAR L'UN QUELCONQUE D'ENTRE EUX 

150 REM ESTCE EST PREMIER 

160 PRINT ESTCE 

170 REM CONSERVEZ CE PREMIER DANS LE REGISTRE 

180 HAUT = HAUT + 1 

190 PREMIER (HAUT) = ESTCE 

200 REM REGARDONS LE PROCHAIN PREMIER 

210 NEXT ESTCE 

220 END 

Ce programme imprime done tous les nombres premiers jusqu'a 4096 excepte 
2 et 3. On peut pallier cet inconvenient en ajoutant la ligne 

5 PRINT 2, 3, 

N.B.: Ce programme pourrait se derouler encore plus rapidement si vous 

divisiez ESTCE, non pas par chaque nombre entier, mais seulement par ceux 

inferieurs a la racine carree de ESTCE. 

Pensez un peu a cette solution, et modifiez vous-meme le programme en 

consequence. 
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RESERVATION MEMOI- 
RE POUR CONTENIR 
LES PREMIERS 



I 



HAUT = 1 



30 



50 



PREMIER (HAUT) 
ON RENTRE LE 
PREMIER NOMBRE 
PREMIER 



= 3 



ESTCE 



70 



90 
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MESSAGES D' "ERR'EURS A PROPOS DES REGISTRES : 

Si un des nombres "conserves" en registre est negatif ou plus grand que 
celui indique en DIM» l e message * ##RANGE ERR apparaltra. 

Mais il est toujours facile de savoir pourquoi et ou 1 ' erreur s'est 
produite. En effet, l'ordinateur peut dire: ?£ $ * RANGE ERR 

STOPPED AT 190 
d'ou vous tapez LIST 190 et il vous imprimera: 

190 PREMIER (HAUT) = ESTCE 

et ainsi, vous saurez que la variable HAUT est sortie de la gamme. De 
plus, pour voir ce qui est arrive tapez: 

PRINT HAUT 

et constatez exactement quelle valeur a stoppe le programme. 

Jusqu'a maintenant, les quelques programmes que nous avons entres n'ont 
pas toujours eu un deroulement parfait, notamment si notre construction 
n'etait pas convenable! 

II existe un moyen d'en suivre le deroulement pas a pas afin de constater 
a quel endroit exact notre programme a diverge. Nous appellerons cela 
le "depistage" . 

Neanmoins, afin de le demontrer, nous allons construire un programme de 
recherche des racines carrees d'un nombre quelconque. 

D ' abord quelques donnees de bases: 

Si vous multipliez un nombre par lui-m§me, par exemple 5*5, vous obte- 
nez le carre de ce nombre, soit 25. Inversement, nous disons que 5 est 
la racine carree de 25. Beaucoup de nombres entiers, par exemple 20, n'ont 
pas pour racine carree un nombre entier. En effet, 5 est trop grand, et 4 
(dont le carre est 16) trop petit. Il est done clair que la racine carree 
de 20 est entre 4 et 5 . 

Le probleme est done d'ecrire un programme qui recherchera et trouvera 
la racine carree approximative d'un nombre. D' abord, remarquez que le 
plus grand nombre que votre ITT 2020 puisse contenir gtant 32767, sa 
racine carree est 181. De ce fait, la gamme des racines carrees que ITT 
2020 peut traiter se trouve obligatoirement entre et 181. 

Construisons le programme: 

Nous savons que la racine carree d'un nombre (que nous appellerons NOMBRE) 
doit §tre comprise entre et 181. Nous allons done initialiser deux 
compteurs MIN (pour minimum) et MAX (pour maximum). 

10 MIN = 
20 MAX = 181 

Nous allons maintenant demander la recherche d'un nombre compris quelque 
part entre MIN et MAX et nous regarderons si ce nombre (que nous allons 
appeler QUETE) est trop grand ou trop petit, etant donne qu'un bon moyen 
de se "promener" entre MIN et MAX est de choisir un nombre situe a mi- 
chemin des deux extremes. La ligne suivante s'ecrira: 

L ^ x _ in _' ,, _ T _' r _ r, j_ r ' 1 '" ^ * wj«jiu»mijjb_jpji) m 
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30 QUETE = (MIN + MAX)/2 

Maintenant, nous avons besoin de savoir si QUETE est plus grand ou plus 
petit que la valeur exacte de la racine carree recherchee. Cette valeur 
exacte, si elle est portee au carre, sera egale a NOMBRE- Portons done 
au carre notre QUETE : 

40 CARRE = QUETE A QUETE 

Ainsi, nous pouvons comparer son carre a NOMBRE 1 

©Les instructions ci-dessus comprennent 1 ' essentiel du programme. En effet, 
si CARRE est trop grand, alors nous savons que la veritable racine carree 
est plus petite que QUETE , d'ou nous abaisserons la valeur de MAX vers 
QUETE. Par contre, si CARRE est trop petit, alors nous savons que la 
veritable racine est superieure a QUETE • et nous augmenterons la valeur 
de min vers QUETE - 

Aussi longtemps que MAX et MIN ne sont pas egaux, nous devons continuer a 
examiner les nouvelles valeurs de QUETE- Les valeurs les plus sures etant 
entre les nouvelles valeurs de MIN et MAX- 

Nous allons ajouter cette ligne: 

80 GOTO 30 

qui indiquera a 1 ' ordinateur de chercher a nouveau. 

De cette maniere, nous rapprochons de plus en plus l'une de 1' autre, les 
valeurs de MIN et MAX/ jusqu'a ce que la racine carree approximative soit 
contenue entre elles. 

50 IF CARRE > NOMBRE THEN MAX = QUETE 

60 IF CARRE < NOMBRE THEN MIN = QUETE 

Quand MAXet MIN sont egaux, nous avons trouve la racine carree, done nous 

ecrivons : 

70 IF MAX = MIN THEN 90 
et a la ligne 90, ceci: 

90 PRINT "LA RACINE CARREE DE" ; NOMBRE 
110 PRINT "EST APPROXIMATIVEMENT" ; QUETE 

Voici le programme complet: 

10 MIN = 

20 MAX = 181 

30 QUETE = (MIN + MAX)/2 

40 CARRE = QUETE A QUETE 

50 IF CARRE > NOMBRE THEN MAX = QUETE 

60 IF CARRE< NOMBRE THEN MIN = QUETE 

70 IF MAX = MIN THEN 90 

80 GOTO 30 



90 PRINT "LA RACINE CARREE DE" ; NOMBRE 
100 PRINT "EST APPROXIMATIVEMENT" ; QUETE 
Pour essayer le programme ecrivons: 

5 INPUT "QUEL EST LE NOMBRE?" , NOMBRE 
Tapez RUN et la question? : entrez 34 



RETURN 



9 



O Oui. . . 
repond 
C'est 

Stoppez avec 



apparemment rien ne se produit, le programme fonctionne mais ne 
pas! (on dit que le programme boucle) . 
la que nous a llons chercher pourquoi a l'aide du mode de depistage! 

CTRlT). 



Z7 



Entrez (sans numero de ligne) PRINT NOMBRE/ QUETE/ MIN, MAX/ CARRE afin 
de voir ce que contenaient ces variables quand vous avez stoppe le pro- 
gramme. Ceci vous donnera une idee precise de ce qui se passe. NOMBRE/ 
bien sur, avait la valeur 34 et vous pouvez vous demander pourquoi nous 
nous occupons de cette valeur, puisque le programme indique clairement 
qu'elle ne doit pas changer. 

Ef fectivement, NOMBRE n'est pas suppose changer mais en l'affichant vous 
savez avec certitude que sa valeur n'a pas ete modifiee. En effet, il 
peut y avoir une tres grande difference entre ce que le programme est 
suppose faire et ce qu'il fait reellement! 

C'est un principe qu'il ne faut jamais oublier: ne tenez rien pour vrai, 
avant que vous ne l'ayez constate! Done, QUETE est 5» MIN est 5 et tout 
cela est parfaitement correct, cependant max affiche foil Que s'est-il 
passe? 

. . . "DEPISTAGE" 

Avant que nous allions plus loin, essayons de voir ce qui s'est passe 
pendant le deroulement du programme: 

tapez: 1 DSP MIN 

2 DSP MAX 

ce qui signifie que vous demandez "1 ' af f ichage" des valeurs de min et 
MAX- Vous pourriez , bien sur, ne pas numeroter les lignes, mais alors vous 
ne pourriez plus utiliser RUN car cette commande detruit les fonctions 
DSP- (Vous pourriez, neanmoins, demarrer le programme par un: GOTO 5/ ce 
qui equivaut, bien sur, a un RUN/ a la difference que GOTO ne remet pas 
les variables a 0) . 

Done, le programme va vous demander a nouveau une valeur pour CARRE/ et 
vous entrez a nouveau le nombre 34- Attendez avant de presse r | RETURN] ! 



En effet, vous allez devoir vous tenir pret a presser 



CTRL 



instantane- 



ment pour stopper le programme. Si vous avez ete assez rapide, votre 
Scran devrait afficher: 



Notes 
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10 
20 
50 
50 
50 
50 
60 
50 
50 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 
60 



MIN 
MAX 
MAX 
MAX 
MAX 
MAX 
MIN 
MAX 
MAX 
MIN 
MIN 
MIN 
MIN 
MIN 
MIN 
MIN 
MIN 
MIN 
MIN 
MIN 




181 

90 

45 

22 

11 

5 

8 

6 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 



STOPPED AT 70 



Cet affichage montre qu'aux lignes 10 et 
MIN et MAX etaient bien conformes a leur 
Ensuite, vous pouvez voir que les valeur 
tandis que la valeur de MIN (qui n'est p 
demonstration vous explique parfaitement 
qu'une instruction contenant un INPUT ou 
affectee d ' un DSP/ est lue, l'ecran affi 
variable, et sa valeur. Pratique non . . . ? 
a l'interieur d'un programme, ecrire (n° 



20 les valeurs respectives de 
initialisation, soit et X81 • 
s de MAX decroissent jusqu'a \\ 
as affichee) reste a 0. Cette 
la fonction DSP- Chaque fois 
un =, et contenant la variable 
che le n° de ligne, le nom de la 
(Pour annuler la fonction DSP 
de ligne) NODSP) ■ 



REMARQUE : Si vous avez en programme la variable MAX affectee d'un DSP/ 

ainsi qu'une instruction du type MAX = MAX -2/ la fonction DSP 
concerne le MAX a gauche du signe =. 

Mais continuons 1 ' examen de notre affichage. 

Depuis sa valeur H, MAX atteint 8 puis 6 et rien ne sera change apres 
cette derniere valeur, tandis que la valeur de MIN qui est de 5 depuis 
la ligne 60 / continuera d'afficher cette valeur. Reprenons 1 ' exemple de 
5*5= 25 - Le CARRE est done 25 puisque QUETE est a 5- Done, pour le 
nombre 34/ CARRE sera toujours inferieur a NOMBRE/ MIN sera toujours 
rapporte a QUETE/ et MAX jamais egal a MIN- 
Changez le programme avec cette instruction: 

70 IF MAX = MIN + 1 THEN 90 



Tapez^RUN pour plusieurs valeurs de NOMBRE/ cela vous donnera tou jours 
une reponse avec une erreur maximum de 1. Bien sur, cela ne vous donnera 
pas tou jours le plus proche entier de la racine exacte, mais 1 ' ecart ne 
sera jamais superieur de 1 a la reponse exacte. 
©Mais... ce programme ne vous donnera pas de reponse, si vous entrez un 
nombre qui est un carre parfait (comme 2 5) . Essayez de trouver un moyen 
a l'aide de DSP et. . . d'un peu de reflexion! 
Vous n'avez pas trouve? Mors changez la ligne 50 comme suit: 

50 IF CARRE >= NOMBRE THEN MAX = QUETE 

Le fait d'affecter la valeur de max quand CARRE est soit 6gal, soit 
superieur a NOMBRE/ permet au programme de donner egalement les racines 
des carres parfaits, sauf si QUETE peut ou ne peut pas etre la racine 
carree de NOMBRE- Cependant, MAX l'est tou jours; done, nous changeons 
la ligne 100: 

PRINT "EST, ARRONDI AU PLUS PROCHE ENTIER SI NECESSAIRE , " ; MAX 
Maintenant, le programme est parfaitement au point et donnera la reponse 
exacte pour un carre parfait, ainsi que la reponse arrondie au plus pro- 
che entier, si CARRE n'est pas un carre parfait. 

Vous vous souvenez que nous avons donne precedemment un exemple d' utilisa- 
tion des registres pour la recherche de nombres premiers, et nous vous 
avions suggere en N.B. d'utiliser les racines carrees pour accelerer cette 
recherche. Si vous ne l'avez deja trouve, nous allons etablir un program- 
me utilisant ces deux procedes. 

Jusqu'ici done, quand nous recherchions les premiers, nous divisions par 
chaque premier inferieur au nombre teste. En realite, il n'est pas neces- 
saire de diviser par chaque premier, mais seulement par chaque premier 

inforiour ou ogal a la raoinc carree du ll ami) ire teste. 

Ainsi, en combinant les deux procedes, nous pouvons augmenter considera- 
blement la vitesse d' execution, surtout si l'on prend soin de placer le 
p lus d' instructions possibles sur la meme li q ne. 

OCe que nous allons voir maintenant. 



Notas 



10 

20 
30 
40 
50 
60 
70 

80 

90 
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NEW 

DIM PREMIER (800) 

PREMIER (1) = 2 

PREMIER (2) = 3 

PRINT 2, 3, 

HAUT = 2 

FOR QUETE = 3 TO 4096 STEP 2 : J = 2 

MOD PREMIER (j) = THEN 100 
J + 1 : GOTO 70 

HAUT = HAUT + 1 : PREMIER (HAUT) = QUETE 



IF QUETE 
80 : J = 



IF PREMIER (j) > = MAX THEN 



PRINT QUETE, : HAUT = HAUT + 1 : PREMIER (HAUT) = QUETE : MIN = 
MAX = 181 

RACINE = (MAX + MIN)/2 : ESSAI = RACINE * RACINE : IF ESSAI >= QUETE 
THEN MAX = RACINE : IF ESSAI < QUETE THEN MIN = RACINE : IF MAX = 
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MIN + 1 THEN 100 
100 NEXT QUETE 
110 END 



GOTO 90 



INSTRUCTIONS MULTIPLES SUR UNE SEULE LIGNE 

Vous venez de voir dans le programme precedent que sous le meme n° de 
ligne, 1 ' on pouvait ecrire toute une serie d' instructions differentes 
sous la condition de les separer d'un " : ',' cette comraande remplacant done 
un n° de ligne. 

Ce procede extremement courant: 

1 - se caracterise par une plus grande rapidite d' execution, 

2 - occupe moins de place en memoire, 

3 - permet, si le programme est relativement court, d'obtenir son affi- 

chage complet sur la surface disponible de l'ecran. 

Par contre, la lisibilite et la comprehension ne sont pas facilities. 
Ainsi nous vous conseillons de n'utiliser ce procede qu'a partir du moment 
ou vous serez familiarises avec la programmation. 

Oil existe egalement une autre fonction de "depistage", elle aussi tres 
utile, que nous pouvons utiliser quand un programme presente quelque 
anomalie. Elle permet de suivre le deroulement ligne par ligne. II s'agit 
de la commande TRACE- Dans un programme, le texte qui s'affiche correspond 
a ce que vous avez demande au programme d'afficher. La fonction TRACE 
fait afficher en plus du texte du programme tous les numeros des instruc- 
tions du programme au moment de leur execution. 

Cela est bien pratique lorsque vous utilisez de nombreux GOTO ou 60SUB 
CgOSUB = commande pour sous-programmes, voir chapitre suivant) . 

10 FOR 1=1 TO 10 

20 NEXT I 

40 PRINT "BONJOUR" 

100 END 

Faites RUN' - l e programme ecrit: iiBONJOUR 11 

Maintenant faites TRACE' puis RUN- Sur l'ecran vous voyez s 1 afficher: 

t W t 20 * 10 + 20 t 10 * 20 * 10 * 20 + 10 * 20 
^ 10 * 20 * 10 f 20 t 10 t 20 t 10 f 20 f 10 t 20 

+ 40 BONJOUR 

* 100 

Vous avez vu: l'ecran suit le programme. 

Dans ce cas, vous pouvez inscrire 5 TRACE- Et s:i - vous voulez n ' examiner le 

deroulement que jusqu'a la ligne 40, vous ecrirez 45 NOTRACE- 

De toute facon, vous serez oblige d'ecrire NOTRACE? sinon vous auriez 

toujours en memoire la commande TRACE- 



A la difference de DSP qui est annule par un RUN r TRACE n'en est pas 
affecte et peut etre utilise en mode d'affichage direct, done sans nume- 
rotation. N'oubliez pas, meme dans ce cas, de notifier NOTRACE quand vous 
n'en aurez plus besoin. 
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I 



HAUT = 2 



10 
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J = 2 



NON 



OUI 





QUETE DIVISIBLE PAR 
LE J erne NOMBRE 
PREMIER? 



LE J° PREMIER \NON 
EST SUPERIEUR 
AU MAXIMUM 



ECRIRE QUETE 



HAUT = HAUT + 1 



RANGER QUETE 



MIN = 
MAX = 181 




RACINE = ESSAI 



RACINE = 
(MAX + MIN) /2 



RACINE 



EXERCICE XIII/1 

X (1) , X (2) , ... 

Ecrivez un programme qui utilise trois registres pour memoriser les 
coordonnees x et y et la couleur de differents points (max. 20 points) 

Apres avoir memorise les points, affichez-les sur l'ecran. 

10 DIM X (20) 

20 DIM Y (20) 

30 DIM C (20) 

40 INPUT "NOMBRE DE POINTS", Z 

50 FOR N = 1 TO Z 

60 INPUT "X, Y (DE A 39) : " 

70 INPUT "COULEUR (DE A 15) 

80 NEXT N 

90 GR 

100 FOR N = 1 TO Z 

110 COLOR = C(N) 

120 PLOT x(n), Y(N) 

130 NEXT N 

140 GOTO 40 

EXERCICE XI 11/ 2 

VOITURES D'OCCASION 



x(n), y(n) 
", c(n) 



VOITUREsfc 

2cv 

SOLP 



ANNEE 

1975 
1975 



COULEUR J}c 

VERT 

BLEU 



PRIX 

10000 

15500 



VENDU 

NON 

NON 



Ecrivez un programme qui affiche un tableau comme ci-dessus pour 12 voi- 
tures d' occasion. 

Changez au fur et a mesure 1' indication NON en OUI pendant 1 ' execution 
du programme ! 



REM ENTREE DES DONNEES 



V 



10 

20 dim voi* (48), a (12), ft* (60), p (12), vrf (36), oui* (40) 

30 INPUT "NOMBRE DE V0ITURE (DE 1 A 12) ?", Z 

40 FOR N = TO Z -1 /£ r 

50 INPUT "VOITURE (EN 4 LETTRES) : " , VOl£ (n * 4 + 1) 



Notes 
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-^ (N * 5"+ 1) 
P (N + 1) 



60 input "annee:" / a (n + 1) 

70 input "couleur (en 5^lettres): 

80 input "prix (limite a 32767): 

90 Mi (N * 3 + 1) = "NON" 

100 NEXT n 

110 REM AFFICHAGE EN TABLEAU 

120 PRINT » VOITURES D'OCCASION" 

130 PRINT : PRINT 

140 PRINT "VOITURE", "ANNEE" , "COULEUR", "PRIX", 

160 PRINT 

170 FOR N = TO Z -1 Q 

180 PRINT VOl£ (N * 4 + 1, N * 4 + 4), A (N + 1) 

59, p (n + 1), v£ (n # 3 + 1/ n * 3 + 3) 

190 NEXT N : PRINT 

200 INPUT "VENTE D'UNE VOITURE? (OUl/NON)", OUlg 

210 IF OUl£ = "OUI" THEN 240 

220 INPUT "VOULEZ-VOUS RECOMMENCER? (OUl/NON) 

230 IF OUl£ = "OUI" THEN 30 : GOTO 200 

240 INPUT "NUMERO DE LA RANGEE?" , X 

250 IF X = Z THEN 280 

260 L = LEN (Vrf) 

270 oui£ (4) = vtf (x * 3 + 1, i_) 

280 v£ ((x -D* 3 + 1) = oui£ 

290 goto 170 



"VENDU' 



V 1 



ti (n * 5 + 1, n * 5 ' + 



oui£ 



sfc Exemple : 



GOLF 

2-CV (+ 1 BLANC) = 4 

BLEU (+ 1 BLANC) 

VERT (* 1 BLANc) - 5 



CHAPITRE 14 

LES SOUS-PROGRAMMES (GOSUB) 



Lors de 1 ' elaboration d'un programme, vous pouvez avoir besoin de faire 
appel plusieurs fois a la meme instruction (ou a la meme serie d' instruc- 
tions) . Vous pouvez (et c'est probablement ce que vous avez fait jusgu'a 
maintenant) ecrire autant de fois qu'il vous est necessaire cette ou ces 
instructions; mais, pour des raisons bien comprehensibles , nous allons 
ecrire cette instruction une seule fois et 1 ' appeler par 1 ' instruction 
GOSUB- 

Cette commande, suivie d'un n° de ligne et placee dans le programme 
principal, indiquera a l'ordinateur d'aller au n° indique , d'executer la 
ou les instructions contenues dans ce sous-programme, puis, apres les 
avoir executees, de retourner a la ligne suivante du programme principal. 
Ceci lui etant ordonne par la commande RETURN (attention, ne pas confondre 
avec la touche | RETURNl ) qui doit etre tapee lettre par lettre sur le 
clavier et qui doit IMPERATIVEMENT terminer un sous-programme GOSUB- 



PROGRAMME PRINCIPAL 



I 



GOSUB 



GOSUB 



I PAL 


fc SOUS-PROGRAMME .. 








t 




RETURN 




\ 


\ 



I 



Ex: 

1 - 



FIN 

etant donne 3 listes A, B, C de 20 elements chacune, nous d§sirons: 

faire le produit element par element des registres A * B, B # C, et 
C ♦ A et mettre ce resultat dans le registre T. 

2 - chercher a chaque passage le maximum des nombres du registre T et 
1' imprinter s'il est superieur a 10. 

Si nous ne dSsirons pas de sous -programme s , nous pouvons ecrire: 

NEW 

AUTO 10, 5 
10 DIM A (20), B (20), C (20), T (20) 
15 FOR X = 1 TO 20 

* fill P^*P*ro«'i'm f Wfiifinnfimm!fl m lap ji _h m 
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20 INPUT A (X), B (X)/ C (x) 

25 T (X).= A (X) * B (X) 

30 NEXT X 

35 Y = T (1) 

40 FOR X = 2 TO 20 

45 IF T (X)< = Y THEN 55 

50 Y = T (X) 

55 NEXT X 

60 IF Y< = 10 THEN 70 

65 PRINT "MAX DE A PAR B =" , Y 

70 FOR X = 1 TO 20 

75 T (x) = B (x) * c (x) 

80 NEXT X 

85 Y = T (1) 

90 FOR X = 2 TO 20 

95 IF T (x) < = Y THEN 105 

100 Y = T (X) 

105 NEXT X 

110 IF Y< = 10 THEN 120 

115 PRINT » MAX DE B PAR C = ", Y 

120 FOR X = 1 TO 20 

125 T (X) = C (X) * A (x) 

130 NEXT X 

135 Y = T (1) 

140 FOR X = 2 TO 20 

145 IF T (X)< = Y THEN 155 

150 Y = T (X) 

155 NEXT X 

160 IF Y< = 10 THEN 170 

165 PRINT "MAX DE C PAR A =", Y 

170 END 

Les sequences des lignes 15 a 30, 70 a 80, et 120 a 130 calculent les 
produits des registres A, B et C. 

Celles des lignes 35 a 65, 85 a 115 et 135 a 165 sont analogues, en ce 
sens qu'elles calculent le maximum stocke en registre T, lequel contient 
suivant le cas le produit des registres A # B, B # C ou C # A et impri- 
ment ce chiffre quand il est superieur a 10. 



©Or, ce traitement est identique dans les trois cas de figure, et c'est la 
que l'utilite d'un sous-programme unique, appele par un GOSUB' se fait 
sentir ! 

Voici done le mime programme reecrit avec GOSUB : 



5 


DIM A (20) 


, B (20), c 


(20), t (20) 


10 


FOR X = 1 


TO 20 




15 


INPUT A (> 


.), B (x), C 


(x) 


20 


T (X) = A 


(x) * B (x) 




25 


NEXT X 






30 


GOSUB 100 






35 


FOR X = 1 


TO 20 




40 


T (X) = B 


(x) # c (x) 




45 


NEXT X 






50 


GOSUB 100 






55 


FOR X = 1 


TO 20 




60 


T (X) = C 


(X) * A (x) 




65 


NEXT X 






70 


GOSUB 100 






75 


END 






100 


Y = T (1) 






110 


FOR X = 2 


TO 20 




120 


IF T (x) < = Y THEN 140 


H0I 


v = t (v) 






140 


NEXT X 






150 


IF Y< = 10 THEN 170 




160 


PRINT Y 






170 


RETURN 







LES SOUS-PROGRAMMES EMBOITES 

Nous venons d' examiner 1 'utilisation de GOSUB i mais il existe d'autres 
applications de cette instruction. 

En effet, a l'interieur d'un sous-programme, on peut appeler un autre 
sous-programme au moyen d'une instruction GOSUB ou enchainer deux diffe- 
rentes parties d'un sous-programme en les appelant a l'aide d'un test 
ou d'un GOTO- 
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PROGRAMME 
PRINCIPAL 



I 



GOSUB 



GOSUB 



FIN 




1ER NIVEAU DE 
SOUS-PROGRAMME 



i 



GOSUB 



GOSUB 



RETURN 




2EME NIVEAU DE 
SOUS-PROGRAMME 




RETURN 



RETURN 



Exempl 


e : 


10 


INPUT A 


20 


GOSUB 3000 


50 


IF A = 10 THEN 50 


100 


END 


3000 


INPUT B 


3010 


IF B >0 THEN 3060 


3020 


B = 2 * a/b 


3030 


PRINT " B =»/ B 


3040 


RETURN 


3050 


B = B + 1 


3060 


INPUT C 


3070 


B = A/B + C 


3080 


RETURN 



programme principal 



sous-programme 



A la ligne 20 l'ordinateur est envoye en 3000 pour execution. Puis si la 
valeur de B est superieure a 0, il va directement en ligne 3000 dans la 
seconde partie du sous-programme ou il execute les instructions des lignes 
3060 et 3070 avant de retourner au programme principal (c ' est-a-dire a la 
ligne 30) . Si le test est negatif , il execute les instructions des lignes 



-> /tCi rA - 
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De mime, l'appel d'un sous-programme peut renvoyer a une ligne differen- 
te de la premiere ligne du sous-programme, comme dans l'exemple ci- 
dessous: 



5 


NEW 


10 


INPUT A, B 


20 


GOSUB 3000 


30 


B = A + B 


40 


GOSUB 3010 


100 


END 


3000 


A = A + 1 


3010 


IF A * B > THEN 3030 


3020 


A = 2 * A + B 


3030 


PRINT (A - B)/2 


3040 


RETURN 



A la ligne 20, l'ordinateur execute 1 ' instruction de la ligne 3000, alors 
qu'il ne le fait pas au second appel (ligne 40) . 

INTERDICTIONS 

Un sous-programme ne peut pas en appeler un autre apres avoir lui-meme 
ete appele par cet autre; et un sous -programme ne peut evidemment pas 
s' appeler lui-m§me. 

L'exemple ci-dessous est incorrect: 



10 



programme principal 



100 END 

1000 INPUT A 

1010 IF A >= THEN 1030 

1020 GOSUB 1050 

1030 A = 2 * B/A 

1040 RETURN 
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1050 INPUT C 

1060 A = b/a + c 

1070 GOSUB 1000 
1080 RETURN 

De plus, il est interdit de composer un programme comportant plus de 16 
sous-programmes emboltes. 



LA COMMANDE POP 



Cette commande permet de sauter un niveau de retour de sous-programme: 




PROGRAMME 
PRINCIPAL 



GOSUB 



2EME NIVEAU DE 
SOUS-PROGRAMME 



POP 



Entrez le simple programme ci-apres qui vous en fera la demonstration: 



NEW 

10 a = 1:b = 1:c = 1:d = 1 

20 GOSUB 100 

30 PRINT "A, B, C, D. . . " ; A ; B ; C ; D 

40 END 



programme principal 



100 A = A + 1 

110 GOSUB 200 

120 PRINT "A =» ; A 

130 RETURN 



ler sous-programme 



200 B = B + 1 
210 GOSUB 300 
220 B = B + 1 
230 PRINT »B = 
240 RETURN 



; B 



2eme sous-programme 



300 c = c + 1 

310 GOSUB 400 

320 c = c + 2 

330 PRINT iiC =ii 

340 RETURN 



Notes 



3eme sous -programme 



; C 



400 D = D + 4 
410 PRINT II D =!l 
420 RETURN 

et. .run 



4eme sous-programme 



Vous verrez afficher ceci sur l'ecran: 
D = 5 

c = 4 

B = 3 
A = 2 

A/ b, c, d. . ■ 2345 

©(Si vous ne comprenez pas le mecanisme, rappelez-vous : TRACE affichera 
toutes les lignes du programme dans leur ordre d' execution) . 

Maintenant, supposons que nous ne voulions pas changer la valeur de C, 
sans modifier le 3eme sous-programme! Nous ajoutons simplement: 

415 pop 

et... run 

Le resultat sera celui-ci: 

D = 5 

B = 3 

A = 2 

a, b, c, d.m 2 3 (2) 5 

©L'effet de pop est done bien celui voulu, qui est de "sauter" un niveau 
de retour (au lieu de revenir en 320, l'execution revient en 230). Bien 

entendu, selon le resultat que vous desirez obtenir, vous pouvez ecrire 
POP soit en ligne 415, soit en 335, soit en 2 35... mais attention: pas 

en 125 , car vous ne pouvez l'utiliser au sein d ' un seul sous-programme 
(il en faut au moins deux) . 

Toujours dans le programme ci-dessus, supposons que vous desiriez revenir 
directement au programme principal SANS executer les trois sous-program- 
mes precedents. Vous aurez a modifier la ligne 420 comme suit: 
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420 GOTO 30 

Le resultat sera: 

D = 5 

a, b, c, d... ( 2) (2) (2) 5 

Par contre, vous ne pouvez vous contenter d'ecrire 415 POP et. . . rien 
d 1 autre, car dans ce cas vous aurez: 

D = 5 

***N0 END ERR 

N'en deduisez pas pour autant que vous pouvez ecrire 420 END/ car vous 
auriez ceci: 

D = 5 ••• <3 u i est un pietre resultat pour un tel programme! 



Notes 



EXERCICE XIV/1 

GOSUB 

Ecrivez un programme qui: 

- rende blanc tout l'ecran 

- dessine 2 symboles, de couleurs differentes, et qui les fasse avancer 
sur quatre rangees differentes. 

Mettez les programmes des dessins dans des sous-programmes differents. 
10 GR 



20 


COLOR = 


15 


30 


FOR Y = 


TO 39 


W 


HLIN 0, 


39 AT Y : NEXT Y 


50 


FOR Y = 


3 TO 33 STEP 10 


60 


FOR X = 


1 TO 35 STEP 2 


70 


COLOR = 


2 : gosub 200 


80 


COLOR = 


15 : gosub 200 


90 


COLOR = 


4 : gosub 300 


100 


COLOR = 


15 : gosub 300 


110 


NEXT X 




120 


NEXT Y 




130 


END 




200 


FOR N = 


TO 4 


210 


HLIN X, 


X + 2 AT Y + N 


220 


NEXT N 




230 


FOR P = 


TO 20 ; NEXT P 


240 


RETURN 




300 


PLOT X ■ 


<■ 2, Y 


310 


FOR N = 


1 TO 3 


320 


HLIN X " 


■" 1, X + 3ATY+N 


330 


NEXT N 




340 


PLOT X - 


^ 2, Y + 4 


350 


FOR P = 


TO 20 : NEXT P 


360 


RETURN 





Effacez les lignes 80 et 100 pour voir exactement comment les dessins 
avancent ! 
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CHAPITRE 15 



LEVIER DE COMMANDE (graphiques, jeux> 

(Ce "levier" muni de son cable de raccordement est fourni seulement en option!) 

II existe une fonction PDL qui controle ce levier (voir sa definition 
dans le glossaire) pour laquelle nous allons vous donner des exemples 
d'utilisation. Mais au prealable, il est necessaire d'enficher le connec- 
teur situe en bout du cordon qui part du boitier du levier, dans le sup 
port prevu a cet effet a l'interieur de votre ordinateur (en haut et^a 
droite) , et marque GAME I/O (les encoches situees sur la partie arriere 
du coffret sont utilisees pour le passage du cordon, et permettent de 
refermer le couvercle) . 

Nous savons que le fait de demander l'affichage de PDL, suivi d'un ou 1 
entre parentheses, donnera une valeur decimale comprise dans la gamme de 
a 25§. 

Ex: PRINT PDL (0) 

et suivant la position de votre levier, vous verrez apparaitre un nombre. 

Pour mieux comprendre ce phenomene, entrez ceci: 
10 A = PDL (0) 
20 PRINT A 

30 GOTO 10 

et manoeuvrez le levier!... Vous voyez apparaitre une succession ininter- 

rompue de nombres (toujours entre et 255) . Nous allons maintenant les 

faire correspondre a une position relative sur l'ecran. 

Pour cela, ecrivons un programme qui nous permettra de "promener" une 

tache lumineuse sur l'ecran: 

10 GR : COLOR = 4 (initialise mode graphique: selectionne une couleur) 

20 X = PDL (0) (affecte a x la valeur PDL (0)) 

30 • if x >239 then x = 239 
40 x = x/6 

50 Y = PDL (1) 

60 IF Y >239 THEN Y = 239 

70 y = y/6 

80 PLOT X, Y 

90 GOTO 10 

Les lignes 30 et 40 permettent de ramener la gamme des nombres obtenus 
par le levier (de a 255) aux limites autorisees par le mode graphique. 
La ligne 30 signale a X que chaque fois qu'il atteindra la valeur 2 39, il 
sera egal a celle-ci. La ligne 40 affecte une nouvelle valeur a X en 
divisant 239 par 6, soit 39, qui correspond a la gamme autorisee (0 a 39). 



La meme instruction est donnee a Y aux lignes 60 et 70 (bien sur, X = 
abscisses, Y = ordonnees) , puis la ligne 80 demande l'affichage successif 
des "taches" sur lesquelles on passe dans la couleur choisie en ligne 10. 
Enfin la ligne 90 recommence indef iniment le programme. 

O ( Attention: ne jamais porter sur la meme ligne d' instruction les initia- 
lisations des valeurs de PDL et 1). 

Jouez un moment avec votre levier. . . Interessant n'est-c pas? 

Vous pourriez obtenir un effet plus heureux avec une seule modification! 
Changez la ligne 10 comme suit: GR : COLOR = RND (15) + 1 

Votre ordinateur selectionnera une nouvelle couleur d'une maniere totale- 
ment aleatoire, chaque fois qu'il recommencera le programme. 

Allons plus avant! Jusqu'a present vous n'obteniez que des "taches" 
successives. Comment tracer maintenant des lignes continues? Rien de plus 
facile. Ajoutez au programme: 

5 GR 

puis modifiez la ligne 10: 10 COLOR = RND (15) + 1 

Joli n'est-ce pas! 

C'est le meme principe qui est utilise dans les jeux (tel que: MUR DE 
BRIQUES) . 

N.B.: sur votre boitier figurent deux "boutons" . Pour le moment rien ne 
se passe si vous y touchez! L' explication necessaire pour les uti- 
liser est donnee au chapitre n° XVI (POKE/ PEEK) • 



Notes 
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EXERCICEXV/1 

PDL (0) 
PDL (1) 
SCRN (X, Y) 

Ecrivez un programme pour un dessin colore quelconque. 

Mettez les renseignements necessaires pour reproduire ce dessin en memoire 
(registre) . 

Effacez 1 ' ecran graphique et faltes reparaitre le dessin a l'aide du 
levier de commande. (Le contenu de PDL (0) et celui de poi_ (1) vous 
indique un point. Retrouvez la couleur de ce point dans le registre et 
affichez 1' ensemble). 



10 


DIM A (1600) 


20 


gr : xl = 2 : x2 = 38 : Yl = 2 : y2 


30 


FOR C = 1 TO 10 


40 


COLOR = C 


50 


FOR Y = Yl TO Y2 


60 


HLIN Xl/ X2 AT Y 


70 


NEXT Y 


80 


xl = xl + 2 : x2 = x2 - 2 : Yl - Yl 


90 


NEXT C 


200 


N = 1 : PRINT "JE TRAVAILLE !!!" 


210 


FOR Y = TO 39 


220 


FOR X = TO 39 


230 


A (N) = SCRN (X, Y) 


240 


N = N + 1 


250 


NEXT X : NEXT Y 


300 


GR : CALL -936 


310 


Y = PDL (1) 


320 


IF Y >239 THEN Y = 239 : Y = Y / 6 


330 


X = PDL (0) 


340 


if x > 239 then x = 239 : x = x / 6 


350 


N=Y*40+X+1 


360 


COLOR = A (N) 


370 


PLOT X, Y 


380 


GOTO 310 



= y2 



CHAPITRE 16 

CALLPOKE.PEEK 



Avant de vous donner des explications detaillees sur les instructions 
CALL* POKE/ PEEK/ il est necessaire que nous vous disions guelgues mots 
concernant la maniere dont fonctionne un ordinateur. 

Jusqu'a iaaintenant nous n'avons traite que le langage conversationnel 
appele BASIC, mais ceci n'est gue le "sommet de 1' iceberg". 

En effet votre ordinateur possede un autre langage gui est le langage 
machine. Ce langage est en binaire (suite de et de 1) et il est le seul 
langage que comprenne votre ordinateur. 

Lorsque vous executez un programme en BASIC, 1' ordinateur traduit le pro- 
gramme en langage machine. II transmet ces instructions-machine au micro- 
processeur (ROCKWELL 6502) , gui execute le programme et vous permet 
d'obtenir vos resultats. 

Votre ordinateur a la possibility de melanger le BASIC et le langage ma- 
chine, c'est-a-dire gue dans un programme BASIC vous pouvez modifier la 
memoire (PEEK/ POKE) / ou faire executer un sous-programme en langage 
machine (CALL) • 

Nous ne vous en dirons pas plus pour le moment, car tout ce qui concerne 
le langage machine sera expligue dans un second manuel, consacre au 
BASIC evolue. (PALSOFT) 

CALL: 

C'est un sous-programme (ce en guoi on l'assimile a un GOSUB) > mais la 
difference reside dans le fait qu'il appelle un sous-programme en lang age 
machine alors que le CALL lui-meme s'ecrit a l'interieur du programme en 
BASIC. Au lieu d'etre suivi d'un numero de ligne comme GOSUB i CALL est 
suivi d'un nombre decimal qui represente un endroit (adresse) dans la 
memoire. 

L' instruction que vous rencontrez couramment en BASIC est la suivante: 

CALL -936 

qui peut §tre utilisee aussi bien en mode d'affichage immediat gue differe 

Quand 1 ' ordinateur rencontre cette instruction, il va examiner a 1 ' empla- 
cement memoire -936 ce qui s'y trouve et execute 1 ' instruction qui dans 
ce cas lui demande d'ef facer de l'ecran toute inscription avant de passer 
aux lignes suivantes. 

Vous obtenez le meme resultat a l'aide de la touche 
vous rappelez? 



ESC 



) 



shift), 



vous 



Mais on ne peut l'utiliser a l'interieur d'un programme. 

II existe bien d'autres instructions CALL (voir chapitre XVII). Elles se- 
ront detaillees dans un second manuel. 

O Puisque nous venons d'evoguer le langage machine a propos de CALL/ nous 
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pouvons egalement vous donner guelques explications concernant POKE et 
PEEK- Vous en trouverez la designation dans votre glossaire, mais nous 
pouvons l'exprimer par les phrases suivantes: 

- Stocker une information a un emplacement memoire defini se fait a 1 ' aide 
de la commande POKE- 

- Ap peler une information a un emplacement memoire defini se fait a l'aide 
de la commande PEEK- 

©Et a ce propos, revenons au mode GR a P nic 3 ue! (tapez GR et lisez la suite...) 

Nous avons vu, au chapitre IV, que la commande GR initialisait le mode 
graphique mixte, c'est-a-dire de a 39, laissant quatre lignes de texte 
disponibles dans le bas de l'ecran. Jusqu'ici, nous n' avons rien dit du 
mode graphique integral (qui alloue 1" integrality de 1' Scran au graphique, 
sans texte apparent) . 

Comment l'obtenir? Eh bien, en utilisant la commande POKE! L'ordinateur , 
quand il rencontrera 1 ' instruction POKE "16302/0/ saura qu'il faut ini- 
tialiser le mode graphique integral, de meme que 1 ' instruction POKE "163 
01/0/ redonnera les quatre lignes de texte (dans ce cas, vous pouvez indif 
feremment taper POKE -16301/0/ ou GR/ le meme effet sera obtenu) . Essayez. 
De m§me, nous avons vu que pour repasser en mode TEXTS/ nous pouvons uti- 
liser la commande TEXT- Son equivalent est POKE "16303/0 suivi de POKE 
34/0 qui donne le meme resultat. 

©Maintenant, vous desirez peut-etre attirer 1' attention sur un point parti- 
culier d ' un texte. Pour ce faire, entrez POKE 50/63 juste avant 1 ' instruc- 
tion concernant ce point particulier dans votre programme. 
Cela provoquera 1' inversion de la video et affichera la partie prevue en 
noir sur fond blanc (attention: 1' inversion ne concerne que les affichages 
venant de l'ordinateur et non ceux que vous tapez). Si vous avez plusieurs 
parties de votre texte a detacher ainsi et que parmi celles-ci l'une 
d'entre elles soit plus importante , alors tapez POKE 50/127- Cela provo- 
quera une alternance de fond noir sur fond blanc (attention: le clignote- 
ment n'est effectif uniquement que sur les lettres et le signeA) . 

Bien entendu, des que vous voulez revenir a l'affichage normal, vous 
entrez: "POKE 50/255- 

©Voulez-vous inscrire (du texte ou un graphique) dans une partie plus 
restreinte de l'ecran? 
C'est tout-a-fait possible! 

En effet, normalement la fenetre de visualisation est initialisee ainsi: 

■*• c6te gauche (de l'ecran) = Instruction: POKE 32/ expr. 

cote droit " = 40 Instruction: POKE 33/ expr. 

sommet' " =0 Instruction: POKE 34, expr. 

base " = 24 Instruction: POKE 35/ expr. 

C'est-a-dire que tout le champ de votre ecran TV est utilise par l'ordi- 
nateur. 



Supposons que vous vouliez reduire la fenetre de votre ecran TV en le 
limitant entre les colonnes 10 et 20 et les lignes 10 et 20. 



Vous ecrirez dans votre programme: 
POKE 32, 10 

poke 33, 20 

POKE 34, 10 

poke 35, 20 

Puis, pour inclure le curseur a 1 ' interieur de ce rectangle, ajoutez 
CALL _ 936 et. . . c'est tout! 

Pour revenir a 1 ' integralite de l'ecran, changez les valeurs ci-dessus 
dans votre programme, en les remplagant par les valeurs de # . 



LES SONS 

Vous savez que le fait d'appuyer sur 



±7 



D 



CTRL Ifait resonner un BIP! Vous 



pouvez obtenir le meme resultat soit avec 1 ' instruction PEEK (—16336) / 
soit POKE - 16336,0, mais ce son bref n'est guere attrayant et nous verrons 
un peu plus loin comment faire... de la musique! 

CONTROLE CLAVIER 

Jusgu'ici , le s eul moyen pour arreter un programme en cours de deroulement 
etait un | CTRL | , et pour le reprendre taper cONtinue. Mais a ce stade de 



votre initiation, vous desirez surement pouvoir stopper un programme sans 
etre oblige d'en sortir! II existe une instruction double pour cela... 

IF PEEK (-16384) < 128 THEN expr. 

POKE -16368,0 

En voici 1 ' explication: 

A 1 ' emplacement memoire de -16384, l a valeur qui s'y trouve est normale- 
ment inferieure a 128. Quand n ' import e quelle tou che du clavier est enfon- 
cee (a 1' exception de |RESET| , [CTRL | , fREPT| ou |SHIFT| ) , cette valeur 
change et devient superieure a 127. Puis 1 ' instruction POKE -16368, "lit" 
le clavier et lui rend son autonomie. 

Cet ensemble, relie au programme par un test, permet d' interrompre le 
deroulement de celui-ci. Puis, en appuyant sur une touche quelconque du 
clavier (la barre d'espacement est bien piratique pour cela!) , le program- 
me recommencera a son debut. 

O Voici un exemple tres simple: 
10 GR 

20 for x = to 39 : color 

30 FOR Y = TO X 

40 PLOT X, Y 



RND (15) + 1 



Notes 
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50 NEXT Y 
60 NEXT X 
70 GOTO 20 
RUN. . . 

Si vous voulez arr§ter un tel programme, il faut utiliser un 

RUN (° u CON) pour recommencer. 
Modifions le programme comme suit: 
lignes 10 a 60- • • inchangees 

70 IF PEEK (-16384X 128 THEN 70 

80 poke -16368,0 
90 goto 20 

La ligne 70 indique a l'ordinateur d'arreter le programme dans 1 ' attente 
d'une activation du clavier. 

Dans ce cas la ligne 80 rend le contrSle au clavier et passe en 90 pour 
recommencer le programme. 

©Ce programme s ' arrete done automatiguement lorsque la ligne 70 est ren- 
contree, mais vous pouvez declencher cet arret quand vous le desirez. 
II suffit alors d'ecrire: 



lignes 10 a 60- 

70 

80 

90 

100 

110 



inchangees 
IF PEEK (-16384) < 128 THEN 20 
poke -16368,0 

IF PEEK (-16384) < 128 THEN 90 

poke -16368,0 

GOTO 20 



Ainsi, vous appuierez sur une touche pour arreter le programme, et appuie- 
rez de nouveau pour continuer, et cela indef iniment . . . 

©Au chapitre relatif au "LEVIER DE COMMANDE", nous avions evoque les tou- 
ches qui se trouvent sur votre boitier. Pour les activer, il existe des 
instructions dont le fonctionnement est le suivant: 

PEEK (-16287) pour pdl (0) (qui correspond a X = abscisses) 

et PEEK (-16286) pour PDL (1) (qui correspond a Y = ordonnees) 

On peut, dans un programme, utiliser une variable d' initialisation comme 
ceci: 

x0 - peek (-16287) 

IF X0 < = 127 THEN expr. 

Yl = PEEK (-16286) 

IF Yl < = 127 THEN expr. 



Evidemment, vous pouvez utiliser n'importe quelle variable numerique a la 
place de x0 et Yl- 

Voici un programme qui demontre une utilisation des touches X0 e t Yl : 

10 CALL -936 

20 x0 = peek (-16287) 
30 Yl = peek (-16286) 

40 VTAB 10 

50 IF X0<= 127 THEN 70 

60 TAB 10 : PRINT "ZERO" 

70 IF Yl<= 127 THEN 10 

80 TAB 25 : PRINT N0 UN" 

90 GOTO 10 

et amusez-vous avec les touches...! 

LES TONS, COMMENT LES GENERER : 

Votre micro-ordinateur ITT possede un amplif icateur muni d'un haut-parleur . 

Nous avons vu precedemment que 1 ' instruction PEEK "16336 produisait un son 
bref (BIP) . 

Elle n'est done pas suffisante pour produire des tonalites, car pour cela 
il est necessaire d'etablir une frequence et une duree , c ' est-a-dire: 
activer le haut-parleur a des intervalles donnes et pour des duree s fixees 

11 existe des emplacements memoire ou peuvent §tre stockees la frequence 
relative (F) entre les emissions du haut-parleur, ainsi que la valeur de 
la duree relative (D) . 

F comme D se situent dans une gamme d' utilisation de a 255, et une fois 
definies les valeurs de F et de D, elles seront appelees par 1 ' instruction 
CALL 2 Cela declenchera 1' emission sonore du haut-parleur, puis un laps 
de temps egal a la valeur definie en D, et ainsi de suite jusqu'a ce que 
toutes les valeurs aient ete lues. 

OH est important de noter que e'est la valeur F qui influe sur la valeur 
D. En d'autres termes, plus la valeur de F est grande (vers 255), plus la 
duree d'ecoute sera longue , quelle que soit la valeur de D. 

Les possibilites sont relativement importantes, puisque vous pouvez gene- 
rer 255 A 2 sons, ce qui donne finalement 255 tonalites differentes. Bien 
sur, ces chiffres sont theoriques, car les frequences hautes et les fre- 
quences basses sont inaudibles a l'oreille humaine. 

Voici un petit programme qui illustre ces explications: 



poke 2,173 : poke 3,48 : poke 4,192 
poke 5,136 : poke 6,208 



Ces instructions doivent 
etre entrees (comme initia- 
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10 POKE 7/4 : POKE 8,198 : POKE 9,1 : lisation) a chaque recher- 
POKE 10,240 : POKE 11,8 [ che d'un programme de. . . 

15 poke 12,202 : poke 13,208 : poke ™isique. 

14,246 : poke 15,166 : poke 16,0 / 

20 poke 17,76 : poke 18,2 : poke 19,0 : 
poke 20,96 

30 f = 35 : d = 60 

40 poke 0,f : poke 1,d : call 2 

50 GOTO 30 
60 END 

Mais ce programme ne genere qu'une tonalite en rapport avec la frequence 
et la duree definies en lignes 30. II faut done, pour obtenir une "musique 1 
le relier a une ou plusieurs boucles FOR • . ■ NEXT, e n variant a chaque 
fois les valeurs de F et D selon le ton recherche. 

Nous ne vous en dirons pas plus car, ceci etant affaire de gout et d' ima- 
gination creatrice, nous vous laissons le soin d'effectuer des essais 
suiuant les formules donnees ci-dessus. 

Nous vous indiquons seulement, ci-apres, un programme qui genere les 
premieres mesures d'une symphonie celebre. Essayez le... 



5 

10 

15 

20 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

200 



poke 2,1/3 : poke 3,48 : poke 4,192 : poke 5,136 : poke 6,208 
poke 7,4 : poke 8,198 : poke 9,1 : poke 10,240 : poke 11,8 
poke 12,202 : poke 13,208 : poke 14,246 : poke 15,166 : poke 16,0 
poke 18,2 : poke 19,0 : poke 20,96 



poke 17,76 : 
for a = 1 to 



f = 44 

FOR a = 

f = 47 

FOR A = 
F = 45 
FOR A = 
F = 35 
FOR A = 
F = 26 
END 
POKE 0,F 



3 : 
200 

3 : 



D = 
1 TO 

D = 200 
1 TO 3 : 

D = 60 

1 to 3 : 

D = 60 

1 TO 3 : 
D - 200 



f = 35 : d = 60 

: gosub 200 

f = 40 : d = 60 

: gosub 200 

f = 35 : d = 60 

GOSUB 200 

f = 34 : d = 60 

GOSUB 200 

f = 22 : d = 60 

: GOSUB 200 



GOSUB 260 : NEXT A 



GOSUB 200 

GOSUB 200 

GOSUB 200 

GOSUB 200 



NEXT A 



NEXT A 



NEXT A 



NEXT A 



POKE 1,D : CALL 2 : RETURN 



A vous de jouer! 



EXERCICE XVI/1 

PEEK, POKE 

Changez la premiere partie du programme de l'exercice XV/1 (lignes 20 a 90) 
pour pouvoir utiliser le levier. 

Donnez la possibilite de changer la couleur (de a 9) et d'aller dans la 
deuxieme partie du programme (mise en memoire du dessin) . 

10 DIM A* (5), A (400) 

20 GR 

30 INPUT COULEUR = , C : COLOR = C 

40 x = pdl (0) : if x >239 then x = 239 : x - x / 6 

50 Y = PDL (1) : IF Y >239 THEN Y = 239 : Y - Y / 6 

60 PLOT X, Y 

70 IF PEEK (-16384X 128 THEN 40 : POKE -16368, 

80 INPUT VOULEZ-VOUS CHANGER LA COULEUR? (o/n) , ki 

90 IF Ai* (1,1) = THEN 30 



Notes 
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Les lignes 200 a 380 restent inchangees! 
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QUELQUES MOTS SUR LA CONSTRUCTION D'UN PROGRAMME : 

Quand vous parviendrez a une maitrise suffisante de votre ordinateur et 
que vos programmes seront de plus en plus elabores, vous eprouverez sans 
doute le besoin de chercher des moyens de le faire fonctionner plus rapi- 
dement. Voici quelques uns de ces moyens: 

A- Supprimer les RE^arques ou les placer en fin de programme a pres la li- 

gne END- 
B- Placer les sous-programmes (GOSUB) avant le programme principal, en 

prenant soin de les placer par ordre decroissant d' utilisation. 

C- Utiliser autant que possible une seule lettre pour les variables. 
Egalement, lors de leur initialisation, les placer dans 1 ' ordre de- 
croissant d' utilisation. Reduire au maximum le nombre des variables. 
Reutiliser les memes variables chaque fois que possible. 

D- Utiliser des boucles fermees (FOR . . . NEXT) au lieu de boucles ouvertes. 

E- Mettre le maximum possible d' instructions sur une meme ligne en les 
separant par des : 

F- Calculer les sous-expressions en une seule fois au lieu de le faire a 
chaque fois qu'elles sont demandees. II est preferable d'ecrire: 

D = A (B) : IF D / THEN C = D * D/5 

plutot que: 

IF A (B) f THEN C = (a(b) * A(b))/5 

Le gain de temps et de place en memoire est appreciable, surtout dans 
un long programme. 

G- Supprimer les parentheses autant que possible, en suivant les regies 
de priorite des operateurs. (Bien sur,cela ira plus vite mats aux 
depens de la comprehension) . 

H- Si un sous-programme (gOSUB/RETURN) est affiche seulement une fois dans 
un programme, ecrivez-le comme une partie integrante du programme prin- 
cipal, car les GOSUB prennent beaucoup de temps. 

De meme, si le sous-programme est court et est affiche deux ou trois 
fois seulement, il vaut mieux, la aussi, l'ecrire (deux ou trois fois) 
dans le programme principal. 

I- D'une maniere generale, les parties d'un programme qui sont executees 
seulement une fois, n ' ont pas besoin d'etre "comprimees" . Reservez 
votre attention pour celles qui sont repetitives, dans une boucle. 
En resume, il faut considerer que raccourcir un programme, soit pour 
conserver de la memoire, soit pour une execution plus rapide, aura 
pour consequence une comprehension plus difficile de la lecture de ce 
programme . 

N.B.: en ce qui concerne les programmes comportant de nombreux GOSUB • l e 
fait de les supprimer pour accroxtre la rapidite d' execution s'ef- 
fectue au detriment de la memoire disponible. 



115 



CHAPITRE 17 

GRAPHIOUES EN COULEUR 
A HAUTE RESOLUTION 



Notes 



Le micro-ordinateur ITT 2020 dispose d'un mode d'affichage graphique 
couleur a haute resolution de 360 points x 192 points. (Appele ici HIRES) 

Un minimum de 16 K RAM est necessaire. La programmation en HIRES peut 
s'effectuer de trois manieres dif f erentes : 

1° - En utilisant le langage BASIC evolue a virgule flottante, les com- 
mandes HIRES etant integrees a ce langage. (Se referer au manuel 
BASIC evolue a virgule flottante) . 



- En utilisant le langage BASIC integre a 1 ' ITT 2020. 

- En utilisant le langage machine de microprocesseur 6502. 



Ce chapitre traite des langages (2) et (3) . 

1 - UTILISATION DES SOUS-PROGRAMMES HIRES : 

La premiere instruction d'un programme BASIC utilisant les sous-program- 
mes HIRES doit etre: 

X0 = Y0 = COLR = SHAPE = ROT = SCALE 

Le but de cette instruction est de declarer le nom des six premieres vari- 
ables BASIC dans un ordre constant. Lors de 1 ' execution du programme, 
chacun de ces six parametres se verra stocke a des locations memoire fixes 

par rapport a l'adresse contenue dans le pointeur de debut des variables 
BASIC LOMEM* rendant ces parametres accessibles aux sous-programmes machi- 
ne HIRES. 

Apres que le nom des parametres ait ete declare, les noms des sous- 
programmes HIRES peuvent eux-meme etre declares en assignant au nom du 
sous-programme un nombre representant son adresse de depart. 
Appeler les sous-programmes par leur nom est preferable a les appeler par 
leur adresse de depart, celle-ci etant susceptible d'itre modifiee dans 
des versions futures HIRES et leur nom etant plus comprehensible a la 
lecture des programmes. 

©L' instruction suivante donne les adresses de depart de tous les sous- 
programmes HIRES accessibles depuis le BASIC. II est evident que l'utili- 
sateur peut appeler ces sous-programmes par d'autres noms: 



INIT - 2048 

posn = 2763 

DRAW = 2850 
XDRAWl = 2843 



CLEAR = 2062 

plot = 2790 
drawI = 2853 

FIND = 2605 



BKGND = 2834 

line = 2796 

DRAW = 2840 



Les definitions de variables inutiles devront §tre evitees car celles-ci 
ralentissent le deroulement du programme. 
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Les valeurs permises assignables aux couleurs sont les suivantes: 

Noir = ou 128 bleu = 42 

Blanc= 127 ou 255 vert = 85 

Les valeurs 170 et 213 peuvent aussi generer les couleurs cyan et rouge. 

Dans les cas extremes, les techniques suivantes amelioreront la vitesse 
de deroulement du programme. 

1° - Omettre de declarer le nom des sous-programmes et les appeler direc- 
tement par leur adresse de depart -et non par leur nom-. Ceci ne 
s 1 applique pas aux parametres. 

2° - Declarer le nom des variables le plus frequement utilisees avant de 
declarer le nom des sous-programmes. L'exemple ci-dessous accelerera 
le deroulement d'un programme utilisant les variables I, J et K 
d'une maniere repetitive: 

X0 = Y0 = COLR = SHAPE = ROT = SCALE 

2 I = J = K 

5 init = 2048 : clear = 2062 : ... etc ... 



3° - Utiliser le nom des parametres comme nom de variable a chaque fois 
que Sill §§t g8§§iM§. 08fflffl§ 11§ §8Rt SlelSrig 1§§ pE@ml§f§; ill 
sont les plus accessibles du BASIC. 



2 - SOUS-PROGRAMMES D'INITIALISATION : 

L'affichage HIRES comprend normalement 360 points (en horizontal) sur 160 
(en vertical) avec , en bas de l'ecran, 4 lignes reservees au texte , il 
est initialise par la commande BASIC: 



CALL INIT 

Le sous-programme INIT efface 
autres sous-programmes HIRES 
INIT, 1' utilisateur peut subs 
chage HIRES de 360 points x 1 

poke -16302,0 

Les 4 lignes de texte peuvent 
la commande: 

POKE -16301,0 

Les abscisses permises sont c 
35 9 (completement a droite) 
(en haut) et 159 ou 191 (en 
4 lignes de texte. 

Apres que INIT ait ete appele, 
HIRES par la commande: 

CALL CLEAR 

L'ecran HIRES peut etre colore a 1 ' aide du sous-programme BKGND- 

Ce sous-programme necessite que 1 ' on ait precedemment assigne une couleur 

a la variable COLR- 



aussi l'affichage HIRES et initialise les 
Apres avoir appele le sous-programme 
tituer aux quatre lignes de texte, un affi- 
92 points a l'aide de la commande suivante: 



etre recuperees a tout moment a l'aide de 



omprises entre (completement a gauche) et 
Les ordonnees permises sont comprises entre 
bas) suivant que 1 ' on affiche ou non les 

on peut a tout moment ef facer l'affichage 



L'exemple suivant genere un affichage HIRES entierement bleu 
X0 = Y0 = COLR 

5 init = 2048 :bkgnd = 2834 



10 


CALL INIT 


20 


COLR = 42 


30 


CALLBKGND 


40 


END 



Si la variable 
duira un "BIP" 



COLR es t superieure a 
dans le haut-parleur , 



255, le sous-programme BKGND pro- 
le message ### RANGE ERR sera affiche 



et le programme s'arretera. 

3 - POINTS ET LIGNES : 

Le sous-programme PLOT s' utilise pour afficher un point isole dans une 
couleur specifiee precedemment. COLR doit etre inferieure a 255/ X0 
compris entre et 359/ Y0 compris entre et 191 quand PLOT est appele, 
sinon un message d'erreur est affiche et le programme s'arrete. 

Le programme suivant ecrit un point blanc qui a pour abscisse 35 et pour 
ordonnee 55, puis un autre qui a pour coordonnees (85, 90) 

X0 = Y0 = COLR 

5 init = 2048 : plot = 2790 

10 callinit 

20 colr = 127 

30 x0 = 35 : Y0 = 55 : call plot 

40 x0 = 85 : Y0 = 90 : call plot 

50 END 



POSITIONNEMENT 

Tracer une droite entre deux points est 
un point. Apres avoir affiche un dernier 
l'exemple ci-dessus, un point suivant es 
sous-programme LINE est appele; COLR/ X0 
tes permises ci-dessus. 

Le positionnement d'un point sur la page 
sous-programme POSN- 

Les coordonnees x0 et Y0 du point sont a 
saire) . La location memoire du point est 
n'est pas affiche sur la memoire ecran. 

O Ce sous-programme se substitue a PLOT 1° 
une figure dont le point de depart n'est 
seul) . Voir le paragraphe figures. 



presque aussi simple qu' afficher 
point par PLOT/ comme dans 

t defini par X0 = et Y0= et le 
et Y0 doivent etre dans les limi- 

ecran se fait par l'appel du 

specifier (COLR n'est pas neces- 
calculee par POSN mais ce point 

rsque par exemple on veut dessiner 
pas a afficher. (Deplacement 
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trace une ligne blanche du point ayant pour coordonnees (10, 20) au point 
(250, 70) puis une ligne bleue de ce point (250, 70) au point (20, 150) 
et une ligne verte de (20, 150) a (260, 30) 

X0 = Y0 = COLR 

5 init = 2048 : plot = 2790 : line = 2796 

10 callinit 

20 colr = 255 : x0 = 10 : Y0 = 20 : call plot 



30 X0 = 250 : Y0 = 70 
40 X0 = 20 : Y0 = 150 
50 x0 = 260. : Y0 = 30 

ATTENTION : 



CALL LINE 
COLR = 42 



CALL LINE 



COLR = 85 : CALL LINE 



©Ne pas tenter de dessiner une ligne avant d' avoir fait appel 3 PLOT- 

En effet le point de depart de cette ligne n'etant pas specif ie, la ligne 
peut etre dessinee dans n ' importe quelle position de la memoire, pas 
forcement dans la page HIRES (risques de detruire un programme, par 
exemple) . 

4 - FIGURES 

A l'aide du langage BASIC integre , jusqu'a 255 figures differentes peu- 
vent etre definies et stockees sur une seule bande magnetique. 
Se referer au manuel "Basic evolue a virgule flottante". Apres avoir char- 
ge les sous-programmes HIRES, une telle "bande de figures" (contenant un 

"fichier figures") peut etre charge comme suit: 

1° - Introduire la bande de figure dans le magnetophone 
2° - Charger les figures en RAM avec la commande BASIC 

CALL 3000 (ou CALL SHLOAD) 
3° - Mettre le magnetophone en position "REPRODUCTION" 
4° - Attendre deux "BIP" successifs. 

O Les fichiers figures se chargent toujours a partir de l'adresse hexade- 
cimale j£c00 et les sous-programmes HIRES sont contenus entre £800 e t 
^BFF- Apres chargement du fichier figures le pointeur de debut des vari- 
ables BASIC .(LOMEM) contient l'adresse suivant le dernier octet du fichier 
figures. 

S'il n'y a pas assez de memoire disponible pour charger le fichier figures, 
un "BIP" se fera entendre et le message: 

##*MEM FULL ERR 

sera affiche. 

Si aucun "BIP" ne se fait entendre lors du chargement du fichier figure, 
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il y a probablement u n probl eme de conn exion avec le magnetophone et il 
faut taper la touche | RESET | puis |Cc I (contr61 C) pour revenir au BASIC. 
Si l'on n'entend qu'un seul "BIP" et qu'il ne se passe pkus rien, taper 
1 RESET | et I Cc I et reinitialiser LOMEM 3 la valeur #C00 (3072) conime suit 



lomem : 3072 

Recommencer les operations (1) a 



(4) 



O Le sous-programme DRAW permet de dessiner une quelconque des figures pre- 
definies contenues dans le fichier figure. Le point de depart, ou origine, 
de la figure est defini par X0 et Y0 et la couleur de la figure par COLR- 
Le numero de la figure est defini par SHAPE- Par exemple: SHAPE = 3 speci- 
fie que l'on desire dessiner la 3° figure du fichier. Un facteur de gros- 
sissement est defini par SCALE et une inclinaison par ROT- 

COLR doit etre compris entre et 255, X0 entre et 359, Y0 entre et 
191/ ROT entre et 255 (la valeur retenue par le sous-programme DRAW est 
modulo 64) , SCALE entre et 255 (0 est compris comme 256) et SHAPE entre 
1 et le numero de la derniere figure du fichier, sinon un message d'erreur 
est affiche et le programme s'arrete. 

©Autrement dit, le programmeur sera toujours informe lorsqu'il appellera 
un sous-programme HIRES faisant intervenir des parametres non autorises. 

Le sous-programme XDRAW ne differe de DRAW que par le fait que la figure 
sera traitee en "ou exclusif -XOR" avec le fond sur lequel elle est dessi- 
nee. L' operation XOR complemente tous les bits de la memoire Scran de la 
figure, les "0" devenant des "1" et vice versa. Aussi il n'est pas neces- 
saire de specifier une couleur. Le sous-programme XDRAW a une particula- 
rite unique: deux appels successifs de ce programme dessinent la figure, 
puis 1' efface. 

Le programme suivant permet de faire pivoter la figure N° 3 du fichier, 
1' angle etant lie au palonnier 0. XDRAW est utilise pour a la fois dessi- 
ner et ef facer la figure. Bien que la couleur soit facultative, la varia- 
ble COLR doit etre declaree, sinon les variables SHAPE/ ROT et SCALE ne 
seront pas stockees a leur emplacement standard par rapport a LOMEM • 
X0 = Y0 = COLR = SHAPE = ROT = SCALE 

5 i nit = 2048 : xdraw = 2840 

10 CALL INIT 

20 x0 = 140 : Y0 = 80 : shape = 3 : scale = 2 
30 R = : GOTO 60 : rem dessin premiere figure 

40 R = PDL (0) : IF R = ROT THEN 30 

50 CALL XDRAW : REM EFFACER L'ANCIENNE FIGURE 

60 ROT = R : CALL XDRAW : REM DESSINER NOUVELLE FIGURE 

70 GOTO 40 : REM NOUVELLE INCLINAISON? 

80 END 
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DRAW 1 et XDRAW 1 ne different respectivement de DRAW et XDRAW que par le 

fait que le dernier point ecrit dans la memoire ecran sert de point de 
depart a la nouvelle figure. L'ancienne couleur reste en memoire. Aussi 
X0, Y0 et COLR n'ont pas a §tre specif iees a nouveau. 

5 - SOUS-PROGRAMMES "FIND" 

II est possible de dessiner une figure et ensuite dessiner une ligne du 
dernier point de la figure jusqu'a un point determine. Apres avoir dessine 
la figure, il faut appeler le sous-programme FIND c i ui - determine les coor- 
donnees x0 et Y0 du dernier point ecrit. On ecrit alors les coordonnees 
du point final de la ligne (x0 = : Y0 = ) et on appelle le sous-program- 
me LINE- 

6 - COMPTEUR DE COLLISIONS : 

Des figures qui debordent les unes sur les autres definissent des "colli- 
sions", points que les figures ont en commun. 

Le compteur de collision est situe a la location memoire 810 (£> 32a) • 

7 - CREATION D'UNE FIGURE : 

La figure est codee sous forme de vecteurs qui sont stockes dans une suite 
d' octets en memoire vive. Chaque octet de la figure est divise en 3 vec- 
teurs. Chaque vecteur specif ie si un point est ou non affiche sur 1' ecran 
et dans quel sens (haut, bas, droite, gauche) l'on doit se deplacer pour 
acceder au point suivant de la figure. Voici comment les 3 vecteurs sont 
organises dans un octet: 

Vecteur 
N° Bit 
Codage 

Chaque paire de bits DD represente la direction d'un emplacement et chaque 
bit P represente le fait que le point soit affiche ou non, comme suit: 



c 




B 






A 






7 


6 


5 


4 


3 


2 


1 





D 


D 


P 


D 


D 


P 


D 


D 



DD 



00 haut 



I 



P = 



point non affiche 



P = 1 point affiche 



01 droite — ► 

10 bas | 

11 gauche - — 

On notera que le vecteur C (bits les plus signif icatif s - MSB) ne possede 
pas de bit P. Par consequent ce vecteur ne peut que representer un depla- 
cement sans affichage du point (P = par defaut) . 

Les sous-programmes DRAW' DRAW 1< XDRAW' XDRAW 1 traitent les octets un 
par un et les vecteurs de chaque section dans 1'ordre vecteur A, vecteur B, 
vecteur C. Quel que soit le vecteur d'un octet, si les vecteurs suivants 
(a gauche de ce dernier) ne contiennent que des "0", alors ces vecteurs 



sont ignores, c'est pourquoi l 1 octet ne peut pas se terminer (vecteur C) 
par un deplacement vers le haut (00): cet octet ne contenant que des zeros, 
il serait ignore. De meme si le vecteur C est 00, le vecteur B sera ignore 
si il est lui-meme egal a 000. Enfin si les 3 vecteurs sont nuls, les sous 
programmes DRAW interpretent cet octet comme la fin de la figure. 

Un exemple simple fera sans doute la lumiere sur ce qui vient d'etre dit 
precedemment : 

supposons que 1 ' on desire dessiner la figure suivante: 

Decidons tout d'abord du point de depart de 
la figure. Prenons par exemple le centre. 
Dessinons ensuite une ligne passant par tous 
les points de la figure en utilisant seule- 
ment des angles droits: 




Ep 



Redessinons la figure sous forme de vecteurs, 
chacun representant un deplacement d'une case 
vers le haut, le bas, la droite ou la gauche. 
Distinguons les vecteurs qui afficheront ou 
non un point sur l'ecran avant de se 
deplacer;un cercle noir indiquant l'affichage 
du point: 



t 



t 



t 



*:« 



+ 



-i 



i- 



J- 



* 



4- 



Maintenant alignons ces vecteurs dans l'ordre 
ou on les rencontre. 
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O Placons maintenant ces vecteurs dans la serie d' octets representant la 
figure en partant du vecteur A et de 1' octet 0. Le vecteur suivant est 
place dans la case suivante disponible. Lorsque dans un octet on arrive 
au vecteur C et que l'on a a placer un deplacement avec affichage (1XX) 
ou un deplacement vers le haut, on saute ce vecteur C et on remplit le 
vecteur A de 1 ' octet suivant. Enfin on remplit de "0" un dernier octet 
pour indiquer la fin de la figure. 



Vecteur 




C B A 


Octet N° 



1 

2 
3 
4 

5 
6 
7 
8 

9 




\ 


\ 




-«-• 


— • 




i 


t 


— 


t 


t 




•-»- 


— 




\ 


** 




1 


; 




— 


; 






*- 









Vecteur 


Code 


t 


000 


— 


001 ou 01 


1 


010 ou 10 


— 


011 ou 11 


t 


100 


»♦- 


101 


? 


110 


-** 


111 



Depla- 
cement 

seul 



La serie d' octets de notre exemple devient alors, apres remplissage des 
vecteurs non utilises par des "0". 



Vecteur 




C B A 


N° octet 



1 
2 
3 
4 
5 
6 
7 
8 
9 


00 


010 


010 


00 


111 


111 


00 


100 


000 


01 


100 


100 


00 


101 


101 


00 


010 


101 


00 


110 


110 


00 


011 


110 


00 


000 


111 


00 


000 


000 



Ces octets representent chacun 8 bits "0" ou "1". II convient alors de 
les representer sous forme hexadecimale en divisant chaque octet en 2 
fois 4 bits: 



Notes 



N° octet 




1 
2 
3 
4 
5 
6 
7 



0001 


0010 


0011 


1111 


0010 


0000 


0110 


0100 


0010 


1101 


0001 


0101 


0011 


0110 


0001 


1110 


0000 


0111 


0000 


0000 



et en s' aidant de la table de codage binaire/hexadecimale suivante: 



N° octet 


Representation 
hexadecimale 





12 


1 


3F 


2 


20 


3 


64 


4 


2D 


5 


15 


6 


36 


7 


IE 


8 


07 


9 


00 



binaire 


hexadecimal 


0000 





0001 


1 


0010 


2 


0011 


3 


0100 


4 


0101 


5 


0110 


6 


0111 


7 


1000 


8 


1001 


9 


1010 


A 


1011 


B 


1100 


C 


1101 


D 


1110 


E 


1111 


F 
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8 - CREATION D'UN FICHIER FIGURES : 

Le fichier figure se compose de 3 parties: 

1° - Le nombre de figures contenues dans le fichier 

2° - L'adresse relative (par rapport au debut du fichier) du premier octet 

de chaque figure, ou index 
3° - Les figures proprement dites (la suite d' octets vue precedemment) 

O Fichier figures 



INDEX 




1 
2 
3 
4 
5 
6 
7 

Dl 
Dl + 1 



D2 
D2 + 1 



Nombre 


de figures 


inutilise 


Dl MOD 


256 


Dl/256 


D2 MOD 


256 


D2/256 


D3 MOD 


256 


D3/256 




premier octet 


2 erne octet 




$ 00 


premier octet 


2eme octet 




$ 00 





$0 a #FF (255 figures max) 



Dl = adresse relative de la 
figure N° 1 

D2 = adresse relative de la 
figure N° 2 

D3 = adresse relative de la 
figure N° 3 

Dl exprime en hexadecimal 



lere figure 
fin de la lere figure 



2 erne figure 
« fin de la 2eme figure 



D3 



Supposons que 1 ' on veuille creer un fichier figure ne contenant que la 
figure elaboree dans l'exemple ci-dessus. 

Le nombre de figure est alors egal a 1 . 

Le premier octet de la figure sera positionne immediatement apres 1 ' index 
de cette figure, puisqu'il n'y a alors qu'un seul index. 



L' index sera alors 04 et le fichier se oresentera 



Notes 



Octet N° 





1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


Contenu 


01 


00 


04 


00 


12 


3F 


20 


64 


2D 


15 


36 


IE 


07 


00 



Nbre 


Adresse 


de 


relative 


fig. 


du ler 




octet 




de la 




figure 1 



FIGURE 1 



©Le fichier figure est alors pret a etre entre en memoire vive , a 1 ' aide 
du clavier. Choisissons s ' abord 1' adresse hexadecimale de depart du 
fichier. Cette adresse doit etre inferieure a la plus haute adresse me- 
moire disponible (£ 4000 pour 16 K RAM, £ 8000 32 K RAM, £ C 000 pour 

\ oaoia AM) 'v D 7 aUtre part la page X de memoire HIRES est comprise entre 
% Imm et £ 3FFF- Placons no us lege rement en dessous, par exemple en 
j.DFC. ( Appuyer sur la touche I RESET I du clavier. Un asterisque apparait 
sur 1'ecran, mdiquant que le micro-ordinateur travaille en lanqaqe 
machine. 



Taper: 



AIj \ 0|i 111 c) K 1\ If 



*1dfc : 01 00 m 00 1 2 5f 20 64 2d 15 36 1e 07 00 

Appuyer sur la touche I RETURN I . Noter les espaces entre chague octet. 

Taper: Idfc 

On voit apparaltre 

*1dfc - 01 

ce qui indique que 1' octet 01 est stocke a 1" adresse memoire InFr 
Taper LRE.TURNJ il apparait 00 04 00: 1' octet 00 est stocke en l DF n, 
1'octet 04 en IdFE, etc. 

Taper | RETURN) , il apparait: 

*1e00 - 12 3f 20 64 2d 15 36 1e 

Ces octets sont stockes respectivement de 1e00 a 1e07. 

On peut ainsi verifier que le fichier figure est bien entre en memoire 
vive. 

9 - STOCKAGE D'UN FICHIER SUR BANDE MAGNETIQUE : 

ONous devons savoir 3 choses: 

1° - L' adresse de depart du fichier (dans notre exemple IdFC) 
2° - L'adresse du dernier octet du fichier (1e09) 
3° - La difference entre 2° et 1° (000D) 
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Cette difference doit etre stockees sous forme de 2 octets: 
Memoire 0000 : difference module 256; soit memoire 0000 ; 0D 
Memoire 0001 : dif f§rence/25 6 memoire 0001 ; 00 

Ce stockage s'effectue de la maniere suivante: 
*0000 : 0D 00 I RETURN I 
PPour que le fichier figure soit exploitable par le sous-programme SHLOAD' 
il faut stocker sur la bande magnetique la longueur du fichier et ensuite 
le fichier lui-meme. 

Pour enregistrer une position de memoire sur bande il faut taper l 1 ins- 
truction: 

♦ (ADD) . (ADF) W 1 RETURN | 
ADD = adresse de depart 
ADF = adresse de fin de la portion de memoire a stocker. 



Nous tapons done : 
*0000 . 0001W lDFC 



1e09w 



puis nous me ttons le magnetophone en enregistrement et nous tapons la tou- 
che | RETURN | . 

On enregistre alors. le contenu des memoires 0000 a 0001, puis le contenu 
des memoires IdFC a 1e09- Noter 1 ' espace entre les 2 instructions. Le 
curseur disparait alors et on entend 2 "BIP", correspondant chacun a la 
fin d'un enregistrement sur bande et l'asterisque reapparait, indiquant 
que ces enregistrements sont termines. 



CHAPITRE 18 

GLOSSAIRE ALPHABETIOUE 

DES INSTRUCTIONS ETCOMMANDES BASIC 

ET LEUR SIGNIFICATION 

REMARQUE : 

Les chiffres ou variables figurant dans les exemples ci-dessous n'ont 
aucune signification particuliere et sont utilises seulement a titre 
d 1 exemple. 

Les Instructions se dif f erencient des Commandes en ce qu'eiles doivent 
etre precedees d ' un numero de ligne. Elles font done partie d'un program- 
me comportant plusieurs instructions. Par ailleurs, plusieurs Commandes 
(qui sont utilisees en mode d'affichage direct) ne peuvent figurer sur 
une meme ligne comme les Instructions multiples. 



ABS (expr.) 



AND 



ASC (str £) 



Ref. manuel 
page 18 



chapitre 7 



AUTO 10 



page 2 9 



AUTO 50 



AUTO 50/ 10 
(ou AUTO 50, 5) 



CALL -936 



page 2 9 



page 2 9 



donne la valeur ABSolue de 1' expression 
entre parentheses 
Ex: PRINT ABS (x) 

— i i \ a i » i J-*I3 ■-» \ y\ / 

operateur logique: les deux expressions 
doivent etre vraies toutes les deux pour 
que 1 ' instruction soit vraie. 
Ex: 100 IF A >B AND C < D THEN 200 

donne la valeur ASCII decimale de la 
variable alphanumerique entre parenthe- 
ses. Si la, variable est composee de plus 
d'un caractere, seul le premier est pris 
en consideration. 
Ex: PRINT ASC (b£) 

indique a 1 ' ordinateur d'afficher 
AUTOmatiquement les numeros de ligne du 
programme de 10 en 10 en commengant par 
la lere ligne du programme (pour annuler 
cette commande voir a MAN) 

identique a 1 ' instruction ci-dessus, 
mais en commencant a une ligne donnee 
du programme (ici: 50) . 

indique a partir d'un n° determine (ici 
50) que les lignes suivantes seront nu- 
merotees de 10 en 10 (ou 5 en 5) . 



chapitre 16 indique a 1' ordinateur de rechercher 
dans sa memoire ROM, a l'endroit 



Notes 
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CLR 



COLOR = 15 



page 30 



chapitre 4 



CON 



DEL 10 
DEL 10, 50 

DIM 



pages 28 & 
111 



page 28 



decimal specif ie par 1 ' expression, le 
sous-programme correspondant. 
N.B.: les emplacements au-dela de 32767 
sont affectes d'un signe negatif. 

Ex: - 32767 JFFFF 

~ I (hexa 

+ 32767 _]_ 



remet a 0, toutes les variables existan- 
tes dans le programme en cours (sans le 
modifier pour autant) . 

en mode graphique standard, cette ins- 
truction permet d'obtenir la couleur 
selectionnee (15 dans l'exemple). A 
partir de cette instruction, tous les 
graphiques qui seront affiches sur 
l'ecran, seront de la couleur choisie. 
Ci-dessous, code des couleurs: 



0: noir 

1 : bleu outremer 
2: vert bouteille 
3: bleu ocean 
4 : rouge f once 
5 : violet 
6 : ocre 
7 : mauve 



page 28 



chapitre 12 
chapitre 13 



8 : marron 

9: bleu clair 

10: vert pomme 

11: turquoise 

12: rouge clair 

13: vieux rose 

14: jaune 

15: blanc 



utilise pour cONtinuer 1' execution du 
programme en cou rs, apres un arret cau- 
se par un | CTRL| . Ne modifie pas la va- 



leur des variables utilisees. 

supprime la ligne 10 (ou n'importe quel 
n° . . .) . 

supprime la partie du programme compri- 
se depuis la ligne 10 (incluse) jusqu'S 
la ligne 50 (incluse) . 

cette instruction indique a l'appareil 
de riserver de la memoire pour les vari- 
ables specif iees. Pour les registres 
numeriques, il reserve environ 2 fois 
1' expression en octets (ou bytes) de 
memoire (limite, bien entendu, par la 
memoire disponible) . Pour les registres 
alphanumeriques , la longueur de la vari- 
able (en caracteres) doit etre dans la 
gamme de a 2 55. 

D 1 autre part, seule la derniere variable 
peut etre redefinie a n'importe quel 



rsjs 
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END 



FOR, , 

(J) 

NEXT 



chapitre 5 



TO... STEP,,, chapitre 9 
(2) (3) 



GOSUB expr. 



chapitre 14 



GOTO expr. 



GR 



chapitre 6 



chapitre 4 



moment apres son inscription. 
Ex: DIM A (20) 

DIM Bi (100) 

fonction de depistage utilisee pour 
l'affichage des valeurs que prend la 
variable specif iee au cours de 1' exe- 
cution du programme. Chaque nouvelle 
valeur apparait avec le numero de ligne 
ou elle intervient. Utilite principale: 
mise au point at controle du programme. 

arrete le deroulement du programme. 
Cette i nstructi on a le meme effet que la 
touche 1 RETURN [ . 

Utilise sequentiellement pour 1' execu- 
tion d'une boucle. 

FOR initialise une variable a la valeur 
de 1' expression 1, puis 1 ' augmente de 
la valeur de 1' expression 3 (STEP) cha- 
que fois que 1' instruction NEXT est 
rencontree et ainsi de suite jusqu'a ce 
que la valeur de 1' expression 2 (TO) 
soit atteinte. Si STEP n'est pas menti- 
onnee, 1 ' augmentation s'effectuera par 
pas de 1 a chaque passage. Les nombres 
negatifs sont autorises. 
Ex: 10 FOR A = 1 TO 15 STEP 2 : NEXT A 

quand elle est rencontree, cette instruc- 
tion envoie directement au sous-program- 
me correspondant au n° de ligne precise 
dans 1 ' expression. 
Ex: 100 GOSUB 3000 

(Attention: le maximum de sous-program- 
mes differents pouvant se suivre avant 
de revenir au programme principal est de 
16) . 

m§me effet que ci-dessus mais a l'inte- 
rieur du programme principal. 
Ex: 10 GOTO 50 

affiche le mode graphique mixte, cou- 
leurs . Delimite un ecran de 40 X 40, 
permettant ainsi 1 ' utilisation des 15 
couleurs disponibles (le = noir etant 
initialise automatiquement sur la sur- 
face disponible) . Le mode mixte autorise 
l'affichage de texte sur 4 lignes (nu- 
meros 21 a 24), de 40 caracteres 



Notes 
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himem: 



expr. 



HLIN 0/39 AT 20 



IF. . . THEN 



INPUT 



chacune, dans le bas de l'ecran. 

etablit la limite superieure (emplace- 
ment decimal correspondant au nombre 
indique apres HIMEM) de la capacite me- 
moire que 1 ' on souhaite obtenir. 
HIMEM est regie automatiquement sur 
32767 (c apacite maximum) par la commande 
[ CTRL B I . 

Attention: ne pas omettre les deux point! 
apres HIMEM avant d'inscrire le nombre 
desire. 

chapitre 4 en mode graphique couleurs, cette ins- 
truction permet de tracer une ligne 
horizontale (dans une couleur definie au 
prealable) partant de la position 
(dans notre exemple) , se terminant a la 
position 39 et situee a la position ver- 
ticale determinee ici par AT 20. Les 
deux positions horizontales doivent se 
situer dans la gamme de a 39, la pre- 
miere etant evidemment inferieure a la 
seconde . 

Ex: HLIN 0/19 AT affichera une ligne 
horizontale en haut de l'ecran, partant 
de 1' extreme gauche (et du haut de 
l'ecran) et s ' arretant au centre de 
celui-ci . 

HLIN 20/ 39 AT 39 donnera une ligne ho- 
rizontale en bas de l'gcran, partant de 
son centre et s' arretant a 1 ' extreme 
droite. 

chapitre 6 SI (IF) 1' expression est vraie, ALORS 
(THEN) 1' instruction sera executee; si 
elle est fausse non execution et passage 
a la ligne suivante. 

N.B.: si l'expression qui suit THEN est 
le n° d'une ligne du programme (ex: 
IF X >1 THEN 100) la commande GOTO est 
sous-entendue et il n'est pas necessaire 
de 1 ' inscrire. 

chapitre 11 permet d'entrer des donnees variables 

par le clavier. S'il s'agit d'un nombre, 
un point d' interrogation sera affiche 
sur l'ecran; il n'y en aura pas s'il 
s'agit d'une variable alphanumerique. 
On peut entrer plusieurs nombres (quan- 
tite determinee au prealable) sur le 
meme INPUT- x l faut alors les separer 
soit par une vir gule, so it en appuyant 
chaque fois sur I RETURN I . 



IN f 



expr . 



LEN (b£) 



LET 



Ref. manuel 

Par contre, les entrees de variables 
alphanumgriques do ivent ob ligatoirement 
etre suivies d'un | RETURN ~1 . Si vous 
desirez afficher un texte apres INPUT/ 
il est necessaire de le placer entre 
guillemets " ". 
Ex: INPUT X, Y, Z 

INPUT "MONTANT", FRS 

INPUT "OUI OU NON", KAPPA^ 

indique a l'ordinateur de se relier a 
un connecteur de periphSrique E/S, au 
numero specif ie par 1 ' expression, pour 
obtenir des sources d' information exte- 
rieures (disquette par exemple) . 
Chiffres possibles: 1 a 7 (le connecteur 
n'est pas adressable depuis le BASIC. 
II est utilise pour deconnecter un pfiri- 
pherique et renvoyer le controle au cla- 
vier. Ex: IN ^ 0) • 

chapitre 12 donne la" longueur" existante (c'est-a- 
dire le nombre de caracteres, blancs 
compris) de la variable alphanumerique 
exprimee enre parentheses. 

operateur d' assignation. LET est option- 

nel. 

Ex: 10 LET A = 5 



Notes 
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LIST 




pages 28 & 
26 


LIST 100 




page 28 


LIST 100, 


200 


page 28 


LOAD 




pages 19 & 
20 



cette commande a pour effet de faire 
defiler tout le programme en memoire sur 
1' ecran. 

affiche seulement la ligne designee sur 
1' ecran. 

affiche la partie du programme comprise 
entre les lignes 100 et 200 (incluses) . 

charge un programme BASIC existant sur 
une cassette magnetophone dans la memoi- 
re RAM de l'ordinateur. 
Tapez LOAD/ puis enfoncez la touche 

START du magnetophone. Des 1' audition 
du sifflement du debut de bande, enfon- 
cez la touche | RETURN 1 de l'ordinateur. 
1 "BIP" de debut, 1 "BIP" de fin et 
l'affichage de la "pointe de fleche" 
indiquent une transmission correcte. 
Les messages ERR ou MEM FULL ERR signa- 
lent un mauvais enregistrement provenant 
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TTinnrrra 



LOMEM : expr. 



pages 116 
& 119-120 



MAN 



MOD 



page 2 9 



pages 13, 
43 & 81 



NEW 



page 28 



NEXT 



chapitre 9 



NO DSP A 
NOT 

NO TRACE 

OR 



page 88 



chapitre 7 



page 91 

chapitre 7 



soit de la bande, soit d'une faible per- 
formance (ou d'un mauvais reglage) du 
magnetophone . 

(voir HIMEM) Stablit la limite inferieu- 
re de la capacite memoire dont vous vou- 
lez disposer pour un programme BASIC. 
LOMEM est regie automatiquement a la 
limite minimal e, soit 2048, par la com- 
mande | CTRL-B 1 . 
O Attention: comme pour HIMEM» ne P as omet- 
tre les deux points apres LOMEM- 

annule la fonction AUTO de numerotation 
des lignes. Pour pass er en co mmande 
MANuelle, frappez un 1 CTRL-X | , tapez l es 
lettres MAN / puis appuyez sur | RETURN 1 . 

symbole mathematique pour calculs 
(MODulo) : exprime le reste apres la divi- 
sion d'une premiere expression par une 
deuxieme. 

Ex: PRINT 100 MOD 17 
(resultat = 15) 

annule le programme en cours . 
N.B.: si dans le programme que vous de- 
sirez annuler, vous avez utilise LOMEM 
et HIMEM a des valeurs donnees , il est 
preferable de replacer la memoi re a sa 
capacite de base en faisant un I RESET | , 
puis un | CTRL-B "| . 

(voir FOR i ■ ■ TO) s' utilise imperative- 
ment apres FOR..! TO pour boucler la 
boucle. A chaque passage, NEXT augmen- 
te de 1 la valeur de la variable deter- 
minee, jusqu'a la limite precisge. 

annule la fonction DSP pour la variable 
consideree (ici: A) . 

negation logique de 1" expression qui la 
suit: si l'expression est vraie (un) ; 
1 si l'expression est fausse (zero) 
Ex: 10 IF A NOT B THEN 50 

annule la fonction TRACE (voir a ce mot) 

operateur logique: si 1 ' une ou 1' autre 

des deux expressions est vraie, ou si 

les deux sont vraies, 1' ensemble est 

vrai. 

Ex: 100 IF A" >B OR C< D THEN 200 



133 



PDL (expr.) 



PEEK (expr.) 



chapitre 16 



PLOT 'expr. 1, expr. 2 chap. 4 



POKE expr.l, expr. 2 chap. 16 



POP 



PRINT 



Ref. manuel 

chapitre 15 donne un nombre compris entre et 255, 
representant la position exacte sur 
l'ecran de la "raguette" ou du "levier" 
utilise pour les jeux ou le dessin. 
Le n° entre parentheses qui suit PD|_ 
designe le n° de la "raguette" utilisee. 
Attention, seulement autorises: 0, 1, 2 
et 3 
Ex: PRINT PDL (1) 

donne la valeur decimale du nombre sto- 
cke a 1 ' emplacement memoire (decimal) 
specifie par le chiffre entre parenthe- 
ses. 

Pour les emplacements memoire situes au- 
dela de 32767, utiliser les nombres ne- 
gatifs. Par exemple: 1 ' emplacement en 
valeur decimale de 1 ' emplacement hexa- 
decimal FFF0 est -16- 

en mode graphigue couleurs , PLOT sert a 
inscrire un petit rectangle (de couleur 
predeterminee) a 1 ' emplacement horizon- 
tal dgfini par la premiere expression, 
et a 1 ' emplacement vertical defini par 
la deuxieme expression, tou jours de a 
39 pour 1' horizontal et de a 39 (ou de 
a 47 en mode graphique integral) sur 
le plan vertical. 

Ex: PLOT 19/19 affichera un petit rectan- 
gle de couleur au milieu de l'gcran et 
PLOT 0/0 au coin superieur gauche de 
1 'ecran. 

memorise le nombre decimal defini par 

1' expression 2 (gamme de a 255) a 

1 ' emplacement memoire decimal determine 

par 1' expression 1 

Comme pour PEEK/ les emplacements situgs 

au-dela de 32767 sont affectes d'un si- 

gne negatif. 

Ex: POKE 50, 127 (permet 1' inversion de 

la video: ecriture noire sur fond blanc) 

cette commande placee a la fin d'un en- 
semble de sous-programmes (GOSUB) per- 
met de sauter un niveau de retour (done 
de revenir, par exemple, directement au 
programme principal sans repasser par 
le sous-programme precedent) . 

pages 9, 10, affiche les donnees relatives aux 

11... variables alpha ou alphanumeriques, a 



page 101 



Notes 
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PR ^ 



expr . 



REM 



RESET 



) 



1 ' emplacement situe immediatement apres 
celui du curseur. On peut separer les 
variables soit par une virgule - auquel 
cas l'affichage s'effectuera en 5 colon- 
nes d'egale grandeur - ou separees par 
un point-virgule - auquel cas il n'y a 
aucun espacement dans l'affichage. 

nous avons vu que 1 ' instruction I N =#= 
indique a l'ordinateur de se brancher a 
un connecteur de peripherique E/S, au n° 
specif ie par 1 ' expression, pour trans- 
ferer des informations de l'ordinateur 
vers un peripherique (chiffres possibles 
1 a 7) . Inversement, PR# deconnecte le 
peripherique et renvoie l'affichage sur 
1 ' Scran. 

page 37 aucune action sur le programme! Utilise 
surtout pour expliciter un programme 
d'une certaine complexite en donnant les 
explications des instructions qui vont 
suivre. 

chapitre 2 le fait d'enf oncer cette touche , cause 
les f aits suivants : 

- interrompt le deroulement du programme 

- etablit le mode texte, et place l'ecran 
a sa surface maximum 

- l'ordinateur passe en systeme MONITEUR 
(acces direct au langage machine) , 

un astcrioquc apparait ouivi d.u our — 

seur et un "BIP" resonne. 

N.B.: le fait d'appuyer sur I RESET I ne 
detruit en aucun cas le programme BASIC 
en c ours! (p our retrouver le BASIC frap- 
per I CTRL C 



ipou: 
3) - 



RETURN 



chapitre 14 



RND (expr.) 



page 18 



attention! NE PAS CONFONDRE cette ins- 
truction qui doit etre tapee sur le cla- 
vier lettre p ar lettre , et qui est uti- 
lisee pour terminer un sous-programme 
(adresse par GOSUB) / avec la TOUCHE 
| RETURN 1 . 

donne un nombre aleatoire compris entre 
et 1' expression entre parentheses -1, 
si 1' expression est positive. Si elle 
est negative, le resultat sera compris 
entre et 1' expression entre parenthe- 

ex- rnd'(9)=0 ou 1,2,3,4,5,6,7,8. 

rnd(-9)=0 ou -1,-2,-3,-4,-5,-6,-7,-8. 



RUN 



RUN expr. 



SAVE 



Ref. manuel 
chapitre 5 



page 28 



page 21 



remet les variables a 0, ainsi que les 
dimensions des registres, et execute le 
programme au plus bas n° de ligne 
rencontre. 

r§m§t le§ vafiabl§§ I 0, et execute le 
programme a partir du n° de ligne defi- 
ni par 1 ' expression. 

permet d'enregistrer sur une cassette 
un programme BASIC existant. Pour ce 
faire taper SAVE/ enf oncer ensemble les 
touches RECORD et START du magneto- 
phone, p uis appuyer sur la touche 
I RETURN [ du clavier. 



Notes 



SCRN (expr.l, expr.2) 



SGN (expr.) 



TAB expr. 



TEXT 



TRACE 



VLIN 0,39 AT 20 



VTAB 



chap. 4 donne la couleur (nombre compris entre 
& page 107 et 15 ) de 1 ' ecran a 1 ' emplacement de- 
fini horizontalement par 1' expression 
n° 1 et verticalement par 1" expression 
n° 2. Gamine comprise entre et 47 sur 
le plan vertical si 1 ' on se trouve en 
mode graphique integral. 

pages 18-19 donne le signe de 1' expression entre 
& 37 parentheses, c'est-a-dire -1 si c'est 
negatif, + 1 si c'est positif, si 
cette expression est egale a 0. 



page 61 



chapitre 4 
& page 109 



page 91 



chapitre 4 



page 61 



deplace le curseur a la position hori- 
zontale exacte , definie par 1' expression 
dans la gamme de 1 a 40. Le deplacement 
s'effectue de la gauche vers la droite. 

replace 1* ecran en mode TEXTe, soit un 
format de 24 lignes de 40 caracteres 
chacune. 

fonction de controle et de depistage 
utilisee pour afficher les numeros de 
ligne de chaque instruction du programme 
dans leur ordre exact d' execution. 

meme instruction et meme effet que 
HLINj mais sur le plan vertical. En mode 
graphique integral, peut aller de a 
47. 

similaire a JAB , mais effectue le depla- 
cement sur le plan vertical, dans la 
gamme de 1 a 24. 
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MESSAGES BASIC INDIQUANT LES ERfiEURS POSSIBLES 



*** SYNTAX ERR 



***> 32767 ERR 



***> 255 ERR 



*** BAD BRANCH ERR 



*** BAD NEXT ERR 



*** BAD RETURN ERR 



*** 16 GOSUBS ERR 



*** 16 FORS ERR 



*** NO END ERR 



*** MEM FULL ERR 



*** TOO LONG ERR 



resulte d'une erreur de syntaxe ou de 

frappe. L'ordinateur vous signifie "je 

ne comprends pas!" Retapez 1' instruction 

correctement 

Ex: PRINTE. = SYNTAX ERR 

obtenu si 1 ' on tente d'entrer une va- 
leur (ou un resultat d'une operation 
inferieure a -32767 ou superieure a 
+32767. 

obtenu si l'on a entre une valeur supe- 
rieure a 255 (dans la gamme de a 255) 
Ex: instructions POKE 

resulte d'une tentative de relier une 
instruction a un numero de ligne in- 
existant. 

resulte d'une tentative d'executer une 
instruction "|\|EXT" P our laquelle il n'y 
avait aucune instruction "for" • 

resulte d'une tentative d'executer plus 
de RETURN qu'il n'y a de sous-program- 
mes existants (adresses par un GOSUB^ ■ 

le nombre de GOSUB (sous-programmes) 
indiques depasse 16! (Cette erreur est 
tres rare! ) . 

le nombre de boucles (FOR... TO... NEXT) 
indiquees depasse 16! 

la derniere instruction executee dans le 
programme n'etait pas "END"- 

tentative d'entrer un programme dont 
1' importance excede la quantite de mi- 
moire RAM disponible. Ce message est 
egalement affiche si le volume du magne- 
tophone est mal regie au cours du trans- 
fert d'un programme d'une cassette dans 
l'ordinateur. 

obtenu si l'on tente d'entrer sur le 
mime n° de ligne plus de 12 expressions 
entre parentheses ou plus de 128 carac- 
teres. 



*** DIM ERR 



*** RANGE ERR 



*** STR OVFL ERR 



*** STRING ERR 



RETYPE LINE 



STOPPED AT 155 



resulte d'une tentative d'etablir les 
dimensions d'un registre ou d'une chai- 
ne de caracteres deja dimensionnes aupa- 
ravant . 

ERReur de GAMME : 

A - un registre a depasse la valeur 
fixee par dim 

B - un registre a une dimension de 1 

C - la valeur affectee a HLIN» VLINf 
PLOT/ TAB ou VTAB ne se trouve pas 
dans les limites de leurs gammes . 

le nombre de caracteres attribues a une 
variable alphanumerique a depasse la 
valeur prevue par DIM- 

pratiquement toutes les erreurs concer- 
nant une variable alphanumerique 
(STRING) provoquent l'affichage de ce 
message . 

notez que ce message n'est jamais pre- 
cede des 3 asterisques. II est obtenu 
quand, apres un INPUT* les entrees ne 
correspondent pas a ce qui est attendu. 
Par exemple: taper des chiffres alors 
que des lettres sont demandees ou vice 
versa. L'affichage de ce message n ' in- 
terrompt nullement le programme mais il 
implique de taper de nouvelles donnees , 
correctes cette fois. 

L'affichage de la barre oblique, suivi 
de plusieurs "BIP" d 1 avertissement , vous 
indique que vous avez tape une ligne 
contenant plus de 255 caracteres. 
l'ordinateur vous signale qu'il n'a rien 
pris en memoire. 

IL FAUT RETAPER LA LIGNE (en dessous de 
255 caracteres bien entendu!) . 

ce message apparait lorsqu'au cours du 
deroulement d'un programme, un proble- 
me quelconque se pose a l'ordinateur, 
l'empechant de continuer. L' indication 
du n° de ligne est precieuse! En effet, 
le simple fait de taper LIST 155 et 
d' examiner 1 ' instruction vous permet 
dans la plupart des cas de resoudre le 
probleme. 



Notes 
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COMMANDES DE LA TOUCHE 'CTRL (CONTROLE) 



CTRL 



CD 



) 



page 8 



CTRL 



) 



page 



28 



E> 



J CTRL J 


IO 


( CTRL J 


|h) 


1 CTRL ") 


PD 


| CTRL ) 



pages 7 & 
110 



E> 



utilise quand vous Stes en systeme MO- 
NITEUR (indique par 1 ' asterisque * ) 
pour repasser en BASIC (indique par la 
"pointe de f leche" >) . 

Attention! Cela signifie que le (ou les) 
prograirane(s) BASIC existant sont 
DETRUITS! A egalement la propriete de 
replacer les valeurs de |_OMEM et HIMEM 
a leur emplacement originel (|_OMEM : 
2048, HIMEM : 4096 Pour 4 K, 16384 pour 
16 K etc. . .) . 



en BASIC, arretez le 
chez le n° de ligne 
arret. Cependant, si 
entree des donnees e 
il faut egalement fr 
I RETURN 1 , apres le f 
On peut reprendre 1 ' 
gramme par la comman 
Si l'ordinateur est 
(asteris que * ) le f a 
1 CTRL-C 1 et I RETURN 1 
BASIC SANS DETRUIRE 
cours 

emet un son (BIP) 



programme et affi- 
au moment de cet 

a cet endroit une 
st demandee (INPUT), 
apper s ur la touche 
CTRL-C 1 . 
execution du pro- 

de cON( tinue ) • 

en systeme moniteur 

it de frapper 

reinitialise le 
le programme en 



fait revenir le curseur en arriere en 
effagant les caracteres (qui sont visi- 
bles sur l'ecran) de la mgmoife de 1 ' or 
dinateur mais non de l'ecran. 
La touche F^l figurant sur votre cla- 
vier, accomplit la mime fonction. 

permet de vider l'affichage ecran par 
le haut tout en conservant la position 
curseur a 1' endroit du depart. 



r- 



inverse de | CTRL-H | . Deplace le curseur 
de la gauche vers la droite et n ' a aucun 
effet sur les caracteres affiches soit 
en memoire soi t sur l'ecran. 
La touche I — -1 du clavier accomplit la 
m§me fonction. 



CTRL 



) 



E> 



pages 2 8 & 
29 



efface completement la ligne en cours 

1° - de l'ecran 
2° - de la memoire 



Notes 



COMMANDES DE LA TOUCHE ESC (ECHAPPEMENT) 

page 30 deplace le curseur vers la droite 



1 ESC J 


IO 


[esc J 


(b) 


[ ESC ) 


IO 


[ ESC J 


IO 


[ ESC J 


IO 


[ ESC ) 


LO 


[ ESC ) 



page 30 



page 30 



pages 28 & 
30 



page 7 



deplace le curseur vers la gauche 



deplace le curseur vers le bas 



deplace le curseur vers le haut 



efface le texte entre le curseur et la 
fin de la ligne 



efface le texte entre le curseur et la 
fin de la page 



deplace le curseur au coin superieur 
gauche de l'ecran et efface toutes les 
inscriptions de l'ecran. 
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OPERATEURS BASIC 

Symbole: 
( ) 



A 



/ 

+ 



page 15 



page 13 



chapitre 3 



chapitre 3 
chapitre 3 

chapitre 3 

chapitre 3 
page 9 

chapitre 10 

chapitre 10 
page 91 



Designation: 

Dans une serie d' operations, les expres- 
sions entre parentheses sont toujours 
calculees en priorite. 
Ex: A = 4 * (2 + 2) soit resultat 16. 

indique l 1 elevation S une puissance. 

ex: 4 A 4 (son 256) 

N.B.: symbole obtenu en appuyant simul- 
tanement sur |SHIFT| et [n] . 



Symbole de la multiplication. Attention; 

ne pas utiliser les notations mathema- 

tiaues habituelles, telles que (2+3) (4) , 
Pour obtenir le Bon resultat par l T ordi- 

nateur, il faudrait ecrire dans ce cas 

(2+3) * 4. 



Symbole de la division. 

Symbole de 1' addition. 

Peut etre place devant une expression et 
dans ce cas lui assigne une valeur posi- 
tive. 

Symbole de la soustraction. 
Peut etre egalement place davant une 
expression et dans ce cas lui assigne 
une valeur negative. 

affecte une valeur a une variable 
Ex: A = 5 OU KAPPAS = "BONJOUR" 

Guillemets. Utilises pour afficher une 
proposition quelconque sur 1' Scran 
Ex: PRINT "BONJOUR" 

Virgule. Utilisee apres un PRINT ° u un 
INPUT (voir explication detaillee au 
chapitre X) . 

Point-virgule (voir explication detail- 
lee au chapitre X) . 

Deux points. lis permettent de placer 
des instructions multiples sur une seule 
ligne. 
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ANNEXE : PROGRAMMES DIVERS 
MASTER MIND 

Un joueur joue contre 1 ' ordinateur . Les regies du jeu sont les suivantes : 

la machine choisit 5 couleurs, d'une maniere aleatoire, et les garde en 
m§moire . 

Le joueur choisit 5 couleurs sur un choix de 9 possibles, et l 1 ordinateur 
les compare a celles qu'il a en memolre. Puis a chaque nouveau choix, il 
affiche le nombre de couleurs trouvees dans l'ordre, puis dans le desordre 
jusqu'a ce que le resultat soit exact. 

La patience de 1 ' ordinateur ne va que jusqu'a 14 coups... 

10 TEXT : CALL -936 : DIM a (10), B (10), C (10), D (10), A* (10) 

20 VTAB 10 : TAB 11 : PRINT "JEU DE MASTER MIND" 

30 PRINT : TAB 11 : PRINT " " 

40 FOR A = TO 800 : NEXT A 

50 call -936 : gr : y = 1 : vtab 21 

60 print " 123456789" 

70 for x = 1 to 9 : color = x : plot 2 * x, 39 : next x 

80 poke 34, 21 : poke 35, 24 

90 FOR X = 1 TO 5 : A (X) = RND (9) + 1 : NEXT X 

100 m = : n = : poke 35, 24 

110 input c(1), c(2), c(3), c(4), c(5) 
plot 2 * x - 1, y : next x 

•120 for x = 1 to 5 : b(x) = 

A(X)< >C(X) THEN 140 

130 b(x) = 1 : d(x) = 1 : m = 

140 NEXT X 

150 IF M = 5 THEN 280 

160 for x = 1 to 5 : if b(x) = 1 THEN 220 

170 FOR V = 1 TO 5 : IF D(V) = 1 THEN 210 
180 IFB(X) =1 THEN 220 

190 if a(x)Oc(v) then 210 

200 b(x) = 1 : d(v) = 1 : n=n + 1 

210 NEXT V 

220 NEXT X 

230 Y = Y + 2 

240 IF Y< 30 THEN 100 

250 FOR X = 1 TO 5 



Notes 



4), c(E 


>) : for x = 1 to 5 : color = c(x) 


: D(x) 


= : NEXT X : FOR X = 1 TO 5 : I 


M + 1 


COLOR = 4 : PLOT 14 + 2 * M, Y 



IF 



COLOR = 6 : PLOT 27 + 2 * N, Y 



,'# ft i> '#, D '» rn 
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0L0 


R = A(x) 


: plot 2 * x - 


Tl 


% fl 


fill 


lllflLHl IIHII 



1, Y : NEXT X 
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260 INPUT "VOULEZ-VOUS REJOUER? OUl/NON", A^ 

270 IF A^ = "NON» THEN 290 : GOTO 50 

280 tab 25 : print H b R A v o ! ! ! n : print : goto 260 

290 END 



TRIANGLE 



Vous jouez contre 1 ' ordinateur ! 
Donnees: 6 points, numerates de 1 a 6 



Vous et 1 ' ordinateur tirez un trait d'un point a un autre a tour de role. 
II y a 15 possibilites 




tt - U - \i '- hi - L6 



3.4 - 3,5 - 3,6 

4.5 - 4,6 - 

5.6 - 



\.% 






Les traits des deux joueurs sont de couleurs differentes. 
II est interdit de repasser sur un trait qui existe deja! 

But: eviter de realiser un triangle. Le joueur qui forme le premier 
triangle avec ses traits a perdu. 



10 

20 

30 

40 

50 

55 

60 

65 

70 
80 



dim x (6), y (6), m (8), l (8), n (8), e (15), f (15), c (15): x (1) 
= 35 : x (2) = 27: x (3) = 11 : x (4) = 3 



x (5) = 11 : x (6) = 27 

= 19 : y (5) = 31: y (6) 

c (1) = 12 : c (2) = 23 

c (6) = 16 : c (7) = 13 



c (8) = 24 : 
c (13) - 14 



Yd) = 19 : 
= 31 

c (3) = 34 



Y (2) = 7 : y (3) = 7 : y (4) 
c (4) = 45 : c (5) = 56 : 



c (9) = 35 : c (10) = 46 : c (11) = 15 : c (12) = 26: 
; c(14) == 25 : c (15) = 36 

e (3) = -2 : e (4) = 2 : e (5) = 1 : e (6) 

E (10) = 2 : E (11) = -2 : E (12) = : 
2 : e (15) = 2 

F (3) = 3 : F (4) = 3 : F (5) = : F (6) 



E (1) = -2 : e(2) = -1 
= -2 : e (7) = -2 

e (8) = -2 : e (9) = 
E (13) = -1 : e (14) = 

F (1) = -3 : f (2) = 
= 3 : f (7) = -1 

F (8) = 1 : F (9) = 1 : F (10) = 1 : F (11) = 1 : F (12) = 1 : 
F (13) = : f (14) = 3 : f (15) = 3 

GR : COLOR = 15 : FOR I = 1 TO 6 : PLOT X (i), Y (i) : NEXT I 
G = : P = 14 : FOR J = 1 TO 8 : m (j) = : L (j) = : N (j) 

= : NEXT J 



100 PRINT "A VOUS" : INPUT A, B : G = G + 1 



Notes 
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if 120 



260 
270 
275 
-> f 280 
290 
300 
310 
' 320 
330 
335 
340 

350 

360 
370 
390 
400 
410 
420 
430 



440 
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NEXT K : FOR L 



IF U > V THEN 190: 



FOR K = 1 TO G : IF A * 10 + B = M (k) THEN 100 
= 1 TO 8 : N (L) = M (L) : NEXT L 

FOR°0 = 1 TO 7 : IF N (0) = THEN 220 

IF N (O)*10 ? A THEN 210 

U = B : V = N (0) MOD 10 : FOR R = 1 TO ABS (g) 

GOTO 200 

q = U : u = v:v = Q 

IF U # 10 + V = N (R) THEN 300 : NEXT R 

NEXT 

FOR S = 1 TO 7 : IF N (S) MOD 10 ± A THEN 280 

T = B : W = W(S)/10 : FOR H = 1 TO ABS (g) : IF T >W THEN 260 

GOTO 270 

e = t:t = w:w = e 

IF T * 10 + w = n (h) then 300 : NEXT h 

IF G = -1 THEN 330 

IF S = G OR. S = -G - 1 THEN 330 

NEXT S : GOTO 330 

IF G< THEN 410 

PRINT "PERDU" : GOTO 460 

PRINT "GAGNE" : GOTO 460 

d = a*10 + b : c = 2 : ifg>0 then c = 1 
FOR Al = 1 TO 15 : IF C (Al) + D then next Al 
FOR Z = X (A) TO X (B) STEP E (d) ! PLOT Z, Y 



COLOR = C : Y = y(a) 
: d = a1 
: if z = x (b) and 



Y = Y + F (d) : IF Y > 31 THEN 360: 



GOTO 400 



(x (a) t x (b)) then 360 

PLOT z + e (d)/2, y + f (d)/3 

next z 

G = -g : P = P -1 

IF G THEN 390 : M (~g) = A * 10 + B 

L (G) = A * 10 + B : GOTO 100 

N = : goto 420 

N = N + 1 : IFN>200 THEN 320 : IF N > 25 THEN PRINT "JE CHERCHE" 

Al = RND (15) + 1 : CH = C (Al) 

FOR X = 1 TO -G : IF CH = M (x) OR CH = L (x) OR CH = A * 10 + B 

THEN 410 : NEXT Y 

A = CH/10 ; B = CH MOD 10 : FOR M = 1 TO 8 : N (M) = L (M) : NEXT Mi 

GOTO 140 

460 if peek (-16384) > 127 then 70 : poke -16368, : goto 460 

Pour recommencer 3 jouer, tapez sur une touche quelconque du clavier. 



1111111111112222331133332222222222 



PROGRAMME GENERANT DES MOTS ALEATOIRES Notes 

10 DIM ALPHABET* (100), SIGNE* (100), MOT* (10), SIGMOT* (10), B* (10), 
C* (50) 

20 compteur = 1 : m = 1 

30 alphabet* = "aaaaaaaaabbccdddeeeeeeeeeeeeeeeffgghhi i jjkklllllmmmnn 
nnnnooooooppqrrrrrrssssssttttttuuuuuuvvwxyz' 1 

40 signe* = "111111111222222211 
2222111111223222222222222222222 

50 C* = "BLBRCLCRDRFLFRGLGRPLPRSCSPSTTRCTRDRGNBNDNSNGNTGN 

60 LONGUEUR = RND (5) + 2 

70 IF COMPTEUR + LONGUEUR + 1< 40 THEN 90 

80 COMPTEUR = 1 : PRINT : PRINT 

90 FOR N = 1 TO LONGUEUR 

100 L = RND (LEN (ALPHABET*)) + 1 

110 MOT* (N) = ALPAHABET* (L, l) 

120 SIGMOT* (n) = SIGNES (L, l) 

130 IF N = 1 THEN 220 

140 if sigmot* (n, n) = sigmot* (n 

150 b* = "2332" 

160 if sigmot* (n -1, n) 

THEN 500 : GOTO 220 

170 m = 1 : goto 220 

180 m = m + 1 : b* = "3" 

190 IF SIGMOT* (N, N) t B* (1, 1) THEN 210 

200 M = M - 1 : GOTO 100 

210 IF M = 2 THEN 300 : GOTO 200 

220 NEXT N 

230 PRINT MOT*; 

240 PRINT " "; 

250 COMPTEUR = COMPTEUR + LONGUEUR + 1 : GOTO 60 

300 B* = "1" '. IF SIGMOT* (N, N) t B* THEN 390 

310 B* = ii EE" 

320 IF MOT* (N -1, N) t B* THEN 340 

330 IF N ^-LONGUEUR THEN 200 : GOTO 220 

340 B* = "OUAUEUOI 11 

350 FOR X = 1 TO 7 STEP 2 

360 IF MOT* (N-l, N) = B* (X, X + 1) THEN 220 



1, N -1) THEN 180 
B* (1, 2) OR SIGMOT* (N "1, n) = B* (3, 4) 
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370 NEXT x : GOTO 200 

390 IF N t 2 THEN 430 

400 FOR X = 1 TO 29 STEP 2 

410 IF MOT^ (N -1/ N) = C^ (x, X + 1) THEN 220 

420 NEXT x : GOTO 200 

430 IF MOTjg (N -1/ N -1) = MOT£ (N, N) THEN 220 

450 FOR X = 1 TO 47 STEP 2 

460 if mot£ (n -1, N) = d (X, X + 1) THEN 220 

470 next n : goto 200 

500 B^ = "CHNJNQ'i 

510 for x = 1 to 5 step 2 

520 IF MOT^ (N -1, N) = Bj£ (x, X + 1) THEN 220 

530 NEXT X : GOTO 200 



TABLEAU DES MEMOIRES ITT MICRO-ORDINATEUR 



Adresse en hexa Memoire en kilo octet Adressage en decimal Utilisation 



FFFF 



F000 



D000 



C000 



8001 
8000 



7FFF 



4000 



2000 



1000 



0C00 



0800 



64 K 



56 K 



52 K 



48 K 



32 K 



16 K 



8 K 



4 K 



3 K 



- 1 



8192 



- 122i 



16384 



- 32767 
32767 



16384 



8192 



4096 



3072 



2048 



Programmes : 

- MONITEUR (en ROM) 

- BASIC (en ROM) 



Memoire libre, prevue 
pour extensions futu- 
res (PROMS) 



Programme d' entree/ 
sortie pour periphe- 
riques 



sans I avec 
Graphique a haute 
resolution 

Espace 
disponible 
Espace utilisateur 
disponible 
utilisa- 
teur 

(Limite 
donnee 
par 

capacite 
de memoi- 
re) 



Memoire 
Scran: haute 
resolution 



Espace 

disponible 

utilisateur 



Programme 
initialisa- 
tion haute 
resolution 



Espace 

disponible 

utilisateur 
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U' >V 



n 
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0400 

03FF 




2 K 



1 K 



M§moire §cran: texte 
ou graphisme couleur 



1024 



1023 




Espace de travail 
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